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Fast string-comparison routine serves the M6800 



Thomas A Pickering 

Pickering Radio Co Inc, Portsmouth, RI 



The character-string subroutine in EDN Software 
Note #1 (Jan 5, 1978, pg 31} certainly proves 
useful. In our consulting work with the M6800, ■■,.. theiC-alling program can branch accordingly. 



The key to the new COMPAR is the TBA 
(transfer B to A^ instruction. Because the B 
register behaves like a counter, it will contain 
zero in the event of a successful string compare; 
:; <$Jferjwise it will be nonzero. The TBA sets the Z 
flagf. either: up (good compare) or down so 



however, we use the subroutine shown here, 
which runs almost four times faster. This speed 
does exact a penalty: Because the stack pointer 
acts as a second index register, no interrupts are 
permitted. 



Execution time, for this subroutine is 23 ma- 
chine cyqles/sh^racter,:,. compared with the 88 
cy<|l|(s/bytej,;fe J gulfecl,^b^;the original COMPAR 
•subrbutir^. ^b^^ypM're -testing a full 256-bytey 
string, thi^d^Jfpeoce; can. prove important. □ 
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Comparison subroutine (a) uses the stack pointer as a second index register to speed execution. A TBA instruction sets/dears 
condition code Z to allow conditional branching after the subroutine returns to the calling program (b). 






Subroutine returns a random byte 



Robert D Grappel 

Hemenway Associates Inc, Boston, MA 



Dozens of algorithms exist that produce pseu- 
dorandom numbers for games or more serious 
applications. These algorithms, however, fur- 
nish a finite numerical sequence, and the 
sequence's repetition might be objectionable. 
The algorithms also require a "seed" value, 
which must be varied if differing sequences 
must be generated. '•'• J' i: >*\ :^ , i-'V 

In contrast, the subroutine presented here 
uses the reaction tifne of '^'hliman operator at 
a terminal as the source Of randomness: The 
operator is prompted to" press a^key; the time 
required to respond^ becomes the source of the 
random value. 

The key to tnts*procedure is the computer's 
speed: fiven if tRe operator has lightning-fast 
reflexes* the ^executes thousands of instruc- 
tions-be-f ore the operator responds. 

The subroutine uses an ACIA-driven termi- 
nal on a Motorola 6800 processor system. On 
entry, the operator is prompted to press a key; 
a monitor routine (PDATA) outputs the char- 
acter string! The AC I A is then reset and 
reinitialized. " 
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The computer then loops while waiting for 
the key depression. When the ACIA status 
indicates an input, the character is read 
(clearing the ACIA), and the program returns 
the number of times it looped while waiting for 
the key depression. This number is effectively 
random and can assume any value between 
and 256,,,. ed* 



Subroutine return performs a computed jump 



Robert D Grappel 

Hemenway Associates Inc. Boston, MA 



One problem that arises frequently in pro- 
gramming the 6800 jiP involves making a jump 
to an address which results from a computa- 
tion. This jump is especially difficult if the 
index register is used to pass information. You 
can circumvent this problem with a self- 
modifying indexed-jump instruction, but this 
programming trickery makes understanding 
and debugging the code very difficult. A much 
cleaner and more efficient method uses a 



LDA 
LDB 
PSH 
PSH 
RTS 



JAOOR 
JADOR + 1 



; load desired Jump address 

: push low byte of address 
; push high byte cf address 
; "lump" to address 



These 6800 Instructions let you jump to a computed address. 



subroutine-return (RTS) instruction Tf you 
initialize the stack properly, such an RTS 
becomes an excellent computed jump. 

The RTS is essentially a jump to an address 
which lies on the top of the system stack. 
Normally, a JSR (jump to subroutine) or RSR 
(branch to subroutine) instruction places a 
return address on the stack. However, you can 
stack addresses directly using the PSH (push) 
instruction. 

Suppose that the A and R accumulators 
contain the address of the jump destination: A 
holds the high byte and R the low byte. (This 
address can result from calculations or other 
manipulations.) If the accumulators are 
pushed onto the stack, B followed by A, the 
effect is the same as that of a subroutine call. 
When an RTS is executed, the program un- 
stacks the just-pushed address and jumps 
there. Thus, the program jumps to the address 
contained in A and B. ton 



Implement a FIFO stack with software 



Robert Grappel 

Hemenway Associates, Boston, MA 



A first-in, first-out stack finds application wher- 
ever asynchronous processes must pass data. 
Hardware FIFO's are available, but if high speed is 
not required, you can readily program a FIFO 
stack. The technique is termed circular buffering 
because it uses an area of. RAM in a circular 
fashion. The system stores data in the buffer and 
retrieves it sequentially until it reaches the end of 
the RAM area. The next element used is the first 
location in the buffer. Two pointers mark the data 
in the buffer: The head-pointer indicates the first 
available location, while the tail-pointer indicates 
the oldest data entry. As the system stores data, 
the head-pointer moves forward and loops 
around to the top of the buffer; the buffer is full 
when this pointer wraps around to meet the 
tail-pointer. Similarly, when the system extracts 
data from the buffer, the tail-pointer moves; the 
buffer is empty when it meets the head-pointer. 
Fig 1 shows the initialization, Fig 2 the pointer 
move, Fig 3 the push-data and Fig 4 the pull-data 
subroutines, coded for the M6800. a 
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Fig 3— Use this coding to place the contents of the A register in 
the buffer. If there is no room tor the store, the system sets 
the carry bit before the return; otherwise it clears the carry bit. 
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Fig 4— This subroutine gets a byte from the buffer and returns 
it to the A register. If the buffer is empty, the subroutine sets 
the carry bit before the return; otherwise it clears the carry bit. 
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Fig 1— Set up the buffer, head-pointer and tail-pointer before 
using the FIFO. 
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Have you developed 
hardware that expands development-system 
capabilities? How about software (even 
games you've programmed for a specific 
system)? Hobby applications such as ham 
radio or robot-construction projects make 
interesting reading, too, and we solicit your 
inputs. 



Fig 2 — This subroutine moves a pointer to the next location in 
the buffer. The system increments the pointer unless such a 
move would bring the pointer beyond the buffer. In that case 
it sets the pointer to the top of the buffer. 



lash coding 



You can search a hash-coded table at speeds virtually 
independent of the number of items in that table. Here's how. 



Jack Hemenway and Edward Teja, 

Associate Editors 

Along with the convenience of storing' data in a 
computer's memory comes the problem of retrieving 
that data- when you need it. Hie actual process of 
reading data from memory locations is no problem; 
rather, the trouble lies in organizing the storage 
process so that symbols are: 
• • Stored in unique locations 

• Stored only once 

• Stored quickly 

• Retrieved quickly. 
Meeting these needs requires making some design 

decisions. You could store date sequentially, for 
example, but retrieving a particular item in that case 
requires knowing the item's relative position in the 
series; if you know only the stored symbol itself, you 
must search for it linearly through the list— a 
time-consuming process. Alternatively, you could store 
the items in a table and index them. 

What type of index would make sense in that ease? 
Consider for a moment what an entry in an index is— a 
reference to another data item. Rather than generate 
this reference in a manner unrelated to the symbol 
itself, why not perform some operation on the stored 
symbol to produce its index entry? Better yet, why not 
make this operation actually produce the address of the 
symbol in the table? This process is termed hashing. 

Finding the key 

In hashing (or hash coding), the key is the portion of 
the stored symbol used to generate the needed address. 
It should be as small as possible (for convenience and 
simplicity), yet large enough to ensure that each 
symbol, when hashed, produces as unique an address as 
is practicable. (If two symbols produce the same 
address, the result is termed a collision.) 

Every symbol consists of characters. To store the ith 
symbol in a collection, you must create a record (R). 
This record must be long enough to store the entire 
symbol; therefore, R can be divided into Rt, Ra, Ra and 
so on, corresponding to the characters in the symbol: 
Sn, Sis, S i3 ... The usual procedure for storing a symbol 
collection provides enough table-entry space to accom- 
modate the longest symbol; shorter symbol entries are 



then padded, typically with blanks or nulls. 

The algorithm that provides a symbol's home address 
in this process is termed the hashing function. If the 
first two characters of each symbol (Sn and Sb) 
constitute the key, for example, the hashing algorithm 
(H) is some function of those elements. The home 
address of Si is thus defined by H(Sn, S a ). 

Many types of algorithms can effectively hash-code 
symbols. Standard versions employ one of the following 
methods: 

• Division— Divides the key by an integer n and 
uses the remainder to produce the home address. 

• Random— Uses a pseudorandom number genera- 
tor with the symbol's key as its seed. The first 
random number produced becomes the symbol's 
home address, after it's normalized. 

• Midsquare— Multiplies the key by itself and masks 
out all but a middle k-bit field in the product; this 
field becomes the home address. 

• Radix— Treats the key as a string of octal digits 
and converts them to base 10. A middle k-bit field 
of this number becomes the home address. 

• Algebraic coding— Treats the key as a polynomial, 
divides it by a constant polynomial and uses the 
remainder to form the home address. 

• Folding— Picks several k-bit fields from the n-bit 
key and adds them to produce the home address. 

• Digit analysis— Performs a skewness test on each 
digit of the key, selecting the k best (least skewed) 
digits and deleting them, leaving the home 
address. 

Building an assembler's symbol table 

EDN faced the problem of generating a symbol table 
when writing a cross assembler (designated XA6809) to 
generate code for the 6809 |xP on a 6800. In this case, 
the symbol table must contain the labels used in a 
program being assembled. The assembler creates a 
record (R) corresponding to each label. Each time it 
encounters a label, it must find the corresponding 
record; if no such record exists, it must create one. 

The location in which a label's record is stored is 
determined by the hashing function— sometimes also 
termed a mapping function or randomizing technique. 
Because it is hash coded, the symbol table must have a 
defined size; in XA6809, the assembler itself calculates 
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•HSMBL 


POINT TO HSMPI 


1491 


OAFA 09 




INX 




1*41 


0BB9 FF OAD* R 




STX 


HSAV2 


SAVF 


14V2 


OAt-B FF OAO* 


R 


STX HSAVI 


POINT TO NEXT CHAR 


1*42 


OBBC Ft 0463 R 




LDX 


DESCRA 


POINT TO SYHPrt 


1493 


OAFfc FE 0004 


R 


LDX HSAV2 


POINT TO TABLF ENTRY 


1*43 


0B6F Ft CiAD4 R 




STX 


HSAVI 


SAVF 


1494 


0B01 A7 00 




STA A O. I 


STORE CHAR IN SYHTAB 


1*44 


0BC2 F4 04BS R 




LDA 


B OESCRC 


GET I (SYMraTL:' 


1493 


0903 oa 




INX 




1*43 


* 










1494 


OBOI FF OAO* 


R 


STX HSAV2 


POINT TO NEXT POSITION 


1*4* 


OBC3 FE 0OD4 R HASH1 


LOX 


HSAVI 


POINT TO SfMR.ll 


1497 


0B07 3A 




DEC B 


ALL DONE ? 


1*47 


0BC3 A4 OO 




LDA 


A O. X 


OET CHAR 


1498 


OB08 24 EB 




BNC SYH1 


NO 


:*48 


OBCA 08 




■ NX 






1499 




• 






1*49 


OBCB FF 0AD4 R 




SIX 


HSAVI 


POINT TO NFXr CHAR 


1300 




• STORE LC. AND SET 


INFO BYTE 


16W> 


OBCE FE OAD* R 




LDX 


HSAV2 


POINT TO MSYMBI. 


ISOl 




» 






1451 


ODD! A7 00 




STA 


A 0.X 


STORF CHAR 


1302 


OBOrt BA 04AR 


R 


LDA A LC 


OET LC 


1*32 


0603 08 




INX 






IS03 


OBOO A7 00 




STA A 0. X 


STORE 


1*S3 


0BD4 FF OAO* R 




STX 


HSAV2 


POINT TO NEXT CHAR 


1304 


OBOF B* 04AC 


R 


LDA A LC<I 


BET LS BYTF OF 1C 


1*54 


0BD7 3A 




DEC 


S 


All DONE? 


1303 


0B12 A7 01 




STA A 1. X 


STORE 


1*33 


0BB8 2* EB 




BNE 


HASH1 


NO 


ISO* 


0B14 8* 40 




LDA A 4*40 


INFO BYTE "RFLOC-. nTFIMFD 


1*34 


• 










13ti/ 


001* A7 02 




STA A 2. I 




1*37 


• 


FOLD OVER HSMBL CREATING KFVft 


1509 


0618 39 




RT9 


RETURN 


1*58 


• 










IS09 




« 






14S9 


OBOA FE OACA R 




LDX 


HSMBL 


HKEYA: •HSHBL12) 


IS1U 




• COMPARE HSMBL U1TH 


ENTRY IN SYHTAB 


i*60 


OBDO FF OADO R 




STX 


HKEYA 




1S11 




* 






1*41 


OBEO FE OACC R 




LDX 


HSMBL-M! 




lt>12 


0B19 B» OB*F 


R SYHB 


JSR SVrtCHP 


COMPARE 


14*2 


0BE3 F> 0AD2 R 




STX 


HKEYB 




1513 


OB1C 24 10 




BNC SYMC 


NO MATCH 


1*&3 


OBE* CE OADO R 




LDX 


•HKEYA 




ISM 4 




• 






1**4 


0BE9 BD OEt-3 R 




JSR 


ADO 14 


♦HSMRI *2<2) 


ISIS 




• ERROR. SYMBOL ALREADY IN TAB! f. 


14*5 


OBEC FE OACE R 




LDX 


HSMBL "4 




131* 




9 






1*** 


OBEF FV 0AD2 R 




STX 


HKEYB 




131/ 


ABIE FE D48A 


R 


LDX SYMPTR 


©FT AODRFSS OF ENTRY 


1*47 


08F2 CE OADO R 




LDX 


•HKEYA 




1318 


0621 84 SO 




LDA A 4S80 




14*8 


0BF3 BD OEF3 R 




JSR 


AD014 


-»HSMBL*4<2) 


ISI9 


OB23 AA 09 




ORA A 8. X 


SFT RFDFFINEn RIT 


1*49 


* 










1320 


0B2S A7 '>8 




STA A 8.X 




1*70 


• 


HKCVM: ■REnAINIKR OF 


HKEYA/NSYM 


1321 


1*27 CE 020* 




LDX MOTO* 


LOAD ERROR* 


1*71 


« 










1322 


OB2A BD 10DE 


R SYMBI 


.tSR PRINTE 


PRINT IT 


1*72 


0BK8 B* OADO R 




LDA 


A HKEYA 


LOAD VALUES: 


1S23 


0B20 39 




RTS 


RFT1.WN 


1*73 


OBFB F* 0AD1 R 




LDA 


B HKEYA* 1 




1S24 




« 






1*74 


OBFE FE 04A2 R 




LOX 


NSYH 




15,23 




» FIND ANOTHER SLOT 


IN SYHTAB FOR" SYMBOL 


1*73 


0C01 FV OAD2 R 




STX 


HKEYB 




tS2* 




• 






1*7* 


0C04 CE 0A02 R 




LOX 


•HKEYB 


POINT TO NSYM 


132/ 


0R2E BD OB34 


R SYMC 


JSR SYMMOD 


OET ACNEXT Sl.OTl 


1*77 


0C07 BO OEAA R 




JSR 


DIV1* 




»&28 


OB3! BC OAOO 


R 


CPI HKEYA 


CHECKED AI.RFADY ? 


1*78 


OCOA FF OADO R 




STX 


HKEYA 


SAVE REMAINDER 


1529 


0934 27 02 




BCD ••* 


YES. TABLE IS FULL 


1*79 


• 










1531. 




• 






1*80 


» 


HKEYA: »MKS¥«»* 




fjll 


0B3* 20 AC 




BRA SYHA 


TRY AGAIN 


1*81 


« 










1S32 




• 






1*82 


OCOO 4F 




CLR 


A 




IM33 


0838 CE 0221 




LDX •90721 


LOAD ERROR* 


1483 


OCOE C* 09 




LDA 


B •» 




1334 


0B3B 20 EO 




BRA SYMBI 


PRINT IT ic RETURN 


1*8:4 


0C10 CE OADO R 




LDX 


•HKEYA 




ISWJ 




♦ ROUTINE TO COWARE 


SYMBOL UlTH ENTRY 


1*85 


0C13 BD 0E84 R 




JSR 


MPYl* 




li>84 




» 






1*3* 


0C1* B7 OADO R 




STA 


A HKEYA 




1SSO 


OB*F FF OAC3 


R SYHCHP STX PSTNG1 


SAVE PTR TO ENTRY 


1687 


0C19 F7 0AD1 R 




STA 


B HKEYA*! 




158* 


0B72 84 0* 




LDA A 44 




1*88 


* 










15»/ 


0B74 B7 0AC7 


R 


STA A PCOUNT 


PCOUNT' ■L(SYHBOL) 


1*WV 


• 


ADO 


IN BASE ADDRESS 


OF SYMTAB 


1388 


0B77 CE OACA 


R 


LDX ■HSMBL 




1490 


• 










1S89 


0B7A FF 0AC3 


R 


STX PSTN02 


POINT TO HSMBL 


1*91 


0C1C FE 04A0 R 




LOX 


SYHTAB 




1590 


OB70 CE OAC3 


R 


LDX 4PSTN0 


POINT TO PARHS 


. 1*92 


0C1F FF 0AD2 R 




STX 


HKEYB 




1391 


OBSU BD 093E 


R 


JSR COMFAR 


COMPARE 


1*93 


0C22 CE OADO R 




LDX 


•HKEYA ' 




1392 


0983 39 




RTS 




1*94 


0C23 BD 0EF3 R 




JSR 


AD016 




1393 




• 






1*93 


OCXS Ft OADO R 




LDX 


HKEYA 




1394 




• 






1*9* 


0C2B 39 




RTS 







Fig 1 — Hashing a symbol provides a memory address for storing mat symbol— so long as there isn't another symbol already stored 
at that address, J 



this size during its first pass over the source code — the 
table occupies all available memory after the requisite 
macro tables have been set up. 

The entire space assigned to the symbol table 
(SYMTAB) is filled with blanks (20 H ) during initializa- 
tion. Each table entry occupies nine bytes of table 
space: 

SSSSSS First six characters of the symbol, 

padded with blanks as necessary 



XX 

F 



2-byte address of the symbol 

One byte of bit flags, 
formatted as: 
Bit 7 — Redefined symbol 
Bit 6 — Relocatable symbol 
Bit 5 — Macro name 
Bit 4 — Common symbol 
Bit 3 — External symbol 



The hashing function produces 
a symbol's home address 



Bit 2— Entry-point name 
Bit 1 — Unused 
Bit — Unused. 

Putting symbols in memory 

Fig 1 shows the software used in the storing 
operation. The assembler uses a subroutine named 
STOSYM (store symbol) to put a symbol into the table. 
A pointer indicates the beginning of the string to be 
stored, and a variable named DESCRC contains that 
string's length. The subroutine then calls the hash 
routine (HASH) to produce an address from the string. 

HASH moves the symbol's first six characters into a 
variable location— these characters form the key. 
(Because the assembler's syntax rules limit label 
lengths to a maximum of six characters, the entire 
symbol is the key, affording the greatest probability of 
each symbol's hashing to a unique address and thus 
avoiding collision.) If the symbol doesn't have six 
characters, HASH pads it with blanks to fill out the 
entry. The routine then uses the folding method to hash 
the key (Fig 2): It adds the symbol's first two bytes to 
its second two and adds that sum to the third byte pair, 
ignoring overflows. It divides this value by the number 
of entries possible in the table; the remainder of this 
division is then multiplied by nine (the size of each 
entry). The result is added to the symbol table's base 
address to produce the home address; this home 
address is then returned to STOSYM in the index 
register. 

STOSYM checks the home address to ensure that it 
contains only blanks; if it does, STOSYM stores the 
symbol there, along with its value and flags. If the 
location is occupied, however, the symbol in question 
might have already been stored there. To test for this 
condition, a compare routine (COMPAR) compares the 
stored symbol with the one to be stored, indicating the 
result in the processor's condition codes. 

If the stored symbol is not the same as the one to be 
stored, the two symbols are in collision. To handle this 
collision, another routine (SYMMOD) provides a new 
address — specifically, it moves the home address of the 
symbol to be stored nine bytes further through the 
table. If this new location is empty, the entry goes 
there; if it is occupied, COMPAR again compares the 
symbol stored in the location with the symbol to be 
stored, and if they are not the same, SYMMOD moves 
the home address nine more bytes through the table. 

If SYMMOD reaches the end of the table before 
finding an unoccupied location, the home address wraps 
around to the starting location and an error message 
results. If the compare routine ever indicates that the 
stored symbol matches the one to be stored, a different 
error message is produced — any symbol can only be 
stored once, because program labels must be unique. 



<•) 



(b) 



(e) 



A + B 





1 


2 


(A+B) 




4 


*l 



3 4 



] ■ [ 





4 6 


I 


(A + B) + C 








| 10 2 


1 



Fig 2— The folding method of generating a symbol's home 
address treats the symbol's 2-character key as three 16-bit 
binary numbers (a), hashed by adding the first two (b) and 
then adding the resulting sum to the third (c). 



15.37 

is:<8 

1339 
1340 
1541 
1542 
1543 
1544 
1S4S 
1W* 
1347 
1S48 
1549 

two 

1551 
1552 
1533 
IjM 
1355 
1556 
1557 
1558 
1559 
136U 
1361 
1342 
1543 
1544 
1365 
1366 
1567 
1368 
1S69 
IS/O 
1371 
1372 
1373 
1374 
1573 
1376 
157/ 
1578 
1S79 
1580 
1381 



• LOOK tJP SYMEC4 TN =.YnT»R 

• ON ENTRY OESCRA CONTAINS AOORr-v* OF ViHROt 

• AND DESCRC CONTAIN* THF I.FNOTH OF THF 

• SYNBOl 

• ON RETURN: 

• B'VALUE OF INFO EYTF 

• B"FF SYMBOL NOT rrajNO 

• X-VALUE OF SYMBOL 



0B3D BD OBAA R LKPSYM .JSR HASH GET KEY 

0B40 FF 04BA R STX SYHPTR SAVE 

0B43 7D 040D A TST PASS PASSI' 

0B4A 27 06 BEO LKPSMt YES 



0B48 SD 2092 R 
«B4B FE 04BA R 

0B4E A6 OO 
OBSO 31 20 
0BS2 26 03 



0B5* C* FF 
0B56 3» 



JSR XREF 

LDX SYMt-TH 
• 
LKPSNI LDA A O. < 

CMP A ««20 HANK? 

BNE IKFSM3 NO 

• ENTRY NOT IN SYHTAB 

LKPSK2 LDA B MFF LOAD RC 
RTS RETURN 

• CONPARE SYMBOL WITH FNTRY IN SYHTAB 



0BS7 BD 0B6F R LKPSH3 OSR 
OBSA 26 08 BNE 



SVHCHP 
LKPSH4 



COHPARF 
NO NATCH 



• FOUND. EXTRACT INFO. AND VAIUE 



0B5C FE 04BA R 
0B5F EA 08 
0B61 EE 06 
0663 39 



LDX SYNPTR 
LDA B 8. X 
LDX 6.X 
RTS 



POINT TO ENTRY 
GET INFO RYTF 
OFT VALUE 



• PROBE AOAIN FOR SYMBOL IN SYMTAB 



0B64 BO 0BS4 R LKPSH4 JSR SYMMOD 
0B67 EC OflOO R CPX HKEVA 
086A 26 E2 BNE LKPSH1 

0B6C C6 FF LDA B ••FF . 

0B6E 39 RTS 



OFT NF*r l:FY 
ALRFADV CHFi-l Fl>' 
NO. TRY AOAIN 
SET RC 



Fig 3— This routine looks up a symbol in much the same 
way that the routine in Fig 1 stores one. Here, though, a 
match between the sought symbol and the stored one 
doesn't produce an error message. 



What goes in must come out 

To reverse the hash-coding process, a routine named 
LKPSYM (Fig 3) looks up a symbol in the table. This 
routine is called with the searched-for string's address 
in the pointer DESCRA and its length in DESCRC. 
LKPSYM operates like STOSYM, except that it 
expects COMPAR to find a match; it indicates such a 
match with a status code in accumulator B. When the 
symbol is found, the routine puts its address in 
SYMPTR (symbol pointer), and the routine XREF 
forms a cross-reference output block for the symbol. 

EON 



8 



Multitask ^P executive 
routine uses only 
six instructions 



the current control block. The control blocks are 
arranged in a circular list so that SPND will auto- 
matically return to the first block after executing the 
last. 
' A sample program illustrates how process control 



Here's a simple six-instruction subroutine that lets 
your 6800 microprocessor control several external 
processes simultaneously. To use it, organize your 
software as follows: 

1. Set up a process-control block as shown for each 
process to be controlled. 

2. Write a program for each process as if no other 
programs are running in the same microprocessor. 

3. Insert JSR SPND instructions into each program 
at convenient points to allow other programs to run. 

Whenever a process suspends itself by executing a 
subroutine jump to SPND, the SPND routine swaps 
the process-control block pointer (PCB) and the stack 
pointer to set up the next process. Then a simple return 
instruction causes the program for that process to 
start running again where it left off. Each process- 
control block contains at least two parameters: a 
pointer to the next control block and a stack pointer 



A six-instruction executive routine 



Start-up routine 



SPND LDX PCB 


SET INDEX REGISTER TO CURRENT 




CONTROL BLOCK 


STS 2,X 


SAVE CURRENT STACK POINTER 


LOXX 


SET INDEX REGISTER TO NEXT CON- 




TROL BLOCK 


STXPCB 


SAVE CONTROL BLOCK POINTER 


LDS 2.X 


GET NEW STACK POINTER 


RTS 


RETURN TO PROCESS 



Process-control block 














1 


POINTER TO 

NEXT BLOCK 


1 


MANDATORY PARAMETERS 

. OPTIONAL PARAMETERS, 
APPLICATION DEPENDENT 


z 

3 


STACK 

POINTER 


4 


* 
( 



d 






Each block points to the next in a circular list. 



* SET INDEX REG- 

* ISTER TO FIRST 

* CONTROL BLOCK. 

* GET CORRESPONDING 

* STACK POINTER. 

* AND BEGIN EXECUTION: 

* 

START LDX PCB 
LDS 2,X- 
RTS 



A sample program 



* APPLICATION DEPENDENT 

* PROCESS CONTROL BLOCK 



PARAMETERS: 



MODE 
STAT 
BUFIN 
BUFOUT 



EQU 4 
EQU 5 
EQU 6 
EQU 8 



* FETCH A BUFFER. IF 

• NO BUFFERS ARE AVAIL- 

• ABLE, SUSPEND AND TRY 

* AGAIN: 



IDLE 



JSR BUFGET 
BNE READY 
JSR SPND 
BRA IDLE 



• PREPARE TO RECEIVE: 

« 

READY LDX PCB 

CLR STAT.X 
LDAA #1 
STAA MODE.X 
JSR RCV 

• SUSPEND. THEN. IF 

• AN INPUT MESSAGE HAS 

• BEGUN. GO TO INPUT. 

• IF AN OUTPUT MESSAGE 

• IS WAITING. GO TO 

• OUTPUT. OTHERWISE. 

• REPEAT: 



LOOP 



JSR SPND 
LDAA STAT.X 
BNE INPUT 
LDX BUFOUT.X 
BNE OUTPUT 
BRA LOOP 



blocks and SPND instructions work together. Only the 
idle loop is shown. The complete program supervises 
an interrupt routine, which handles message flow to 
and from a teletypewriter. The program sets the 
teletypewriter port to receive, then waits for the 
interrupt routine to receive the first character. If an 
output message arrives first, the port is switched to 
output, and the message is printed on the tele- 
typewriter. Notice that the program always suspends 
itself while waiting for something to happen. 

All communication between background and inter- 
rupt levels occurs via the process-control block. 
MODE, for example, tells the interrupt routine wheth- 
er to send or receive. STAT tells the background 
program that the interrupt routine has started or 
completed the message. BUFIN and BUFOUT are 
pointers to tell the interrupt routine where to store 
an input message or find an output message in 
microprocessor memory. 

In a typical communications application, there 
might be several I/O ports, each having its own 
process-control block. Each control block may have 
a separate background program, or a single program 
may be shared by all control blocks. The sample 
program can be shared by multiple control blocks, 
because 



■ All data references are either to or through the 
control block. 

■ Each control block has its own return address 
stack. 

Be careful with this multitask operation, however. 
Remember: 

1. Processes aren't suspended by a "time-slicing" 
interrupt, but must suspend themselves often enough 
to let other programs run. 

2. Processes should suspend themselves only at 
points where it is safe to lose the register contents, 
since SPND doesn't restore any registers except the 
stack pointer. (If this is a problem, register-save-and- 
restore instructions can easily be added to the SPND 
routine.) 

3. Interrupts may remain enabled continuously, 
but every control block's return-address stack should 
be large enough to accommodate every interrupt 
routine's worst-case requirements. 

4. All control blocks and stacks as well as the-PCB 
pointer must contain proper initial values before 
starting the system. A brief start-up routine initiates 

>ormal operation. 

David W. Johnson, formerly Senior Engineer with 
Control Data Corp., Santa Ana, CA 9270b now with 
T CR Corp., 3325 Piatt Springs Rd., Went Columbia, 

129169. 
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COMPARE TWO MEMORY AREAS 



LABEL OPCODE OPERAND(S) 



I 



8 



THIS PROGRAM COMPARES TWO AREAS OF MEMORY BYTE FOR BYTE 
IT IS INTENDED TO TEST PROGRAM LOADING AT 200H AGAINST 
THE SAME PROGRAM LOADED AT 2880H. IT THEREFORE SERVES 
AS A MEMORY TEST OR CAN BE USED TO COMPARE TWO PROGRAMS 
AGAINST EACH OTHER. WHEN AN UNEOUAL CONDITION IS FOUND 
LOCATION AND MEMORY CONTENTS ARE DISPLAYED AND PROGRAM 
EXITS TO MONITOR. TO CONTINUE, CORRECT THE BYTE IN ERROR* 
AND RESTART THIS PROGRAM FROM LOAD ADDRESS. IT CAN BE * 
RELOCATED ANYWHERE IN MEMORY, AND THE TWO COMPARE AREAS * 

CAN BE RELOCATED ALSO. * 

************************************************************ 
********************** n # q # FRIEDMAN ********************** 
******************** FEBRUARY [2, 1981 ********************* 
* 

"EQUATES 
* 



PRGRM EQU 
COPY EQU 
DBUG EQU 
PUTHEX EQU 
PUTCHR EQU 
BYT I EQU 
PTRI EQU 
PTRI+I EQU 
PTR2 EQU 
PTR2+I EQU 



$0200 

$2880 

$FE64 

$FF02 

$FCBC 

$C0 

$C2 

$C3 

$C4 

$C5 



ORG 
LDX 
LDAA 
STAA 
I NX 
STX 
LDX 
LDAA 
TEST CMPA 
BNE 
I NX 
STX 
LDX 
LDAA 
STAA 
INX 
STX 
LDX 
LDAA 
BRA 
LDAA 
JSR 
LDAA 
SUBA 
JSR 



OUT 



$4F00 
#PRGRM 
0,X 
BYT I 

PTRI 
#COPY 
0,X 
BYT I 
OUT 

PTR2 
PTRI 
0,X 
BYT I 

PTRI 

PTR2 

0,X 

TEST 

PTRI 

PUTHEX 

PTRI+I 

#01 

PUTHEX 



RELOCATE AS REQUIRED 

LD X REG W/ FIRST ADDRESS 

LD FIRST DATA BYTE 

SAVE IT 

ADVANCE X POINTER 

SAVE IT 

LD X REG W/COMPARE ADDRESS 

LD COMPARE DATA BYTE 

CIF = 

NO, GO EXIT 

ADVANCE X POINTER 

SAVE IT 

BEGIN NEXT COMPARE 



SAVE NEXT X POINTER 

RESTORE NEXT COMPARE ADDRESS 

LOOP TO DO AGAIN 
BEGIN EXIT ROUTINE 
PRINT HI ORDER ADDRESS 
LD LO ORDER ADDRESS 
ADJUST POINTER 
PRINT LO ORDER ADDRESS 



LDAA #$20 
JSR PUTCHR 
LDAA PTR2 


LD A SPACE 

PRINT IT 

PRINT COMPARE ADDRESS 


JSR PUTHEX 


HI ORDER 


LDAA PTR2+I 
JSR PUTHEX 
LDAA #$60 


LO ORDER 

CARRIAGE RETURN, LINE 


JSR PUTCHR 
LDAA #$20 

ra mx&m 

LDAB #$0B 
LOOP JSR PUTCHR 


FEED 
LD A SPACE 
RRMX XI 
LD COUNT 
PRINT SPACE 


DECB 

BNE LOOP 


PRINT II SPACES 


LDX PTRI 
DEX 


ADJUST X POINTER 


LDAA 0,X 
JSR PUTHEX 


PRINT MEMORY CONTENTS 


LDAA #$20 
LDAB #$03 
LOOPI JSR PUTCHR 


LD A SPACE 
LD COUNT 
PRINT SPACE 


DECB 

BNE LOOPI 


PRINT 3 SPACES 


LDX PTR2 




LDAA Q,X 
JSR PUTHEX 
JSR DBUG 


PRINT MEMORY CONTENTS 
EXIT TO MONITOR 


END 





// 



PROGRAM GETCHR ASSEMBLY LISTING 
LINE ADDR OBJECT SPHERE MOTOROLA 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 



0800 
0802 
0805 
0807 
080A 
080D 

080E 

0810 

0811 

0813 

0814 

0816 

0818 

081A 

081D 

081F 

0821 

0822 

0824 

0826 

0828 

082B. 

082D 

082F 

0831 

0833 

0835 

0837 

083A 

083C 

083E 

0840 

0841 

0843 

0845 



86 16 
FE FC64 
A7 01 
7F 001A 
7F 001B 
39 

96 IB 
36 

96 1A 
36 

26 33 
DE 1C 
63 00 
CE 1400 
DF 1A 
OE 1A 
09 

27 F2 
86 40 
DF 1A 
FE FC64 
A5 01 
27 FO 
DE 1C 
A6 00 
2A 02 
63 00 
FE FC64 
A6 00 
81 01 
26 09 
30 

A6 02 
88 80 
A7 02 



800 



FC64 



VX 86 D16 

FE E@% 
A7 D01 
7F E@A 
7F E@B 
39 



VP 96 
36 
96 
36 
26 

VQ DE 
63 
CE 
DF 

VR DE 
09 
27 
86 
DF 
FE 
A5 
27 
DE 
A6 
2A 
63 

VS FE 
A6 
81 
26 
30 
A6 
88 
A7 



D@B 

D@A 

R@VT 

D@C 

DOO 

E1400 

D@A 

D@A 

R@VQ 

D40 

D@A 

E@% 

D01 

R@VR 

D@C 

DOO 

R@VS 

DOO 

E@% 

DOO 

D01 

R@VT 

D02 
D80 
D02 



NAM 



ORG 



GETCHR 



$800 



* FOLLOWING ARE LOW MEMORY LOCATIONS 



A- 


1A 


ENDMEM EQU 


$1A 


TEMP FOR REPEATED KBD CHARS 


B- 


IB 


ENDME1 EQU 


$1B 


ENDMEM+1 


C- 


1C 


CSRPTR EQU 


$1C 


SCREEN CURSOR LOCATION 



* FOLLOWING IS A PDS-V3A AND PDS-V3N LOCATION 
KBDPIA EQU $FC64 CONTAINS KBD PIA ADDRESS 



INITKB LDA A 
LDX 
STA A 
CLR 
CLR 
RTS 

GETCHR LDA A 
PSH A 
LDA A 
PSH A 
BNE 

GETCHZ LDX 
COM 
LDX 
SIX 

GET1 LDX 
DEX 
BEQ 
LDA A 
STX 
LDX 
BIT A 
BEQ 
LDX 
LDA A 
BPL 
. COM 

GET2 LDX 

LDA A 
CMP A 
BNE 
TSX 
LDA A 
EOR A 
STA A 



#$16 
KBDPIA 

1,X 

ENDMEM 

ENDME1 



ENDME1 

ENDMEM 

GET6 

CSRPTR 

0,X 

#5120 

ENDMEM 

ENDMEM 

GETCHZ 

#$40 

ENDMEM 

KBDPIA 

1,X 

GET1 

CSRPTR 

0,X 

GET2 

0,X 

KBDPIA 

0,X 

#$01 

GET6 

1,X 

#$80 

1,X 



INIT KEYBOARD, NO INTERRUPTS 
GET KEYBOARD PIA ADDRESS 

SET UP FOR NO REPEATED KEY 
UPPER CASE NORMAL FLAG 



GET UPPER/LOWER CASE FLAG 

SAVE CASE FLAG 

TEST FOR KEY REPEATED 

SAVE ENDMEM VALUE 

USE SAVED KEY VALUE IF REPEATED 

GET SCREEN WRITE ADDRESS 

SET BLINK BLOCK ON OR OFF 

SET BLINK COUNT 

SAVE X REGISTER 



TEST FOR KBD CHAR AVAILABLE 

SAVE X REGISTER 

GET KBD PIA ADDRESS 

TEST FOR KBD CHAR AVAILABLE 

MAKE SURE ORIGINAL SCREEN 
CHAR IS PRESENT 



GET KBD PIA ADDRESS 
GET KBD CHAR 
CHECK FOR CONTROL-A 
BRANCH IF REGULAR CHAR 
GET UPPER/LOWER CASE FLAG 

FLIP UPPER/LOWER CASE FLAG 
STORE UPPER/LOWER CASE FLAG 
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/z 



LINE ADDR OBJECT 



PROGRAM GETCHR ASSEMBLY LISTING 



SPHERE 



0051 


0847 


20 


D6 


20 R@VR 


0052 


0849 


36 




VT 36 


0053 


084A 


30 




30 


0054 


084B 


A6 


01 


A6 D01 


0055 


084D 


CE 


1000 


CE E100O 


0056 


0850 


4D 




4D 


0057 


0851 


27 


03 


27 R@VU 


0058 


0853 


CE 


0400 


CE E0400 


0059 


0856 


DF 


1A 


VU DF D@A 


0060 


0858 


32 




32 


0061 


0859 


36 




36 


0062 


085A 


FE 


FC64 


FE E@% 


0063 


085D 


Al 


00 


Al D00 


0064 


085F 


27 


03 


27 R@W 


0065 


0861 


4F 




4F 


0066 


0862 


20 


05 


20 R@VW 


0067 


0864 


DE 


1A 


W DE D@A 


0068 


0866 


09 




09 


0069 


0867 


26 


ED 


26 R@VU 


0070 


0869 


97 


1A 


VW 97 D@A 


0071 


086B 


30 




30 


0072 


086C 


A6 


02 


A6 D02 


0073 


086E 


97 


IB 


97 D@B 


0074 


0870 


32 




32 


0075 


0871 


31 




31 


0076 


0872 


31 




31 


0077 


0873 


2A 


15 


2A R@VC 


0078 


0875 


81 


41 


81 D41 


0079 


0877 


2D 


11 


2D R@VC 


0080 


0879 


81 


5A 


81 D5A 


0081 


087B 


2E 


03 


2E R@VB 


0082 


08 7D 


8B 


20 


8B D20 


0083 


08 7F 


39 




39 


0084 


0880 


81 


61 


VB 81 D61 


0085 


0882 


2D 


06 


2D R(§VC 


0086 


0884 


81 


7A 


81 D7A 


0087 


0886 


2E 


02 


2E R@VC 


0088 


0888 


80 


20 


80 D20 


0089 


088A 


39 




VC 39 


0090 










0091 








END 



GET 6 



GET7 



GET8 



GET10 



GET13 



GET14 



BRA 


GET1 


PSH A 




TSX 




LDA A 


1,X 


LDX 


#4096 


TST A 




BEQ 


GET 7 


LDX 


#1024 


STX 


ENDMEM 


POL A 




PSH A 




LDX 


KBDPIA 


CMP A 


0,X 


BEQ 


GET8 


CLR A 




BRA 


GET10 


LDX 


ENDMEM 


DEX 




BNE 


GET7 


STA A 


ENDMEM 


TSX 




LDA A 


2,X 


STA A 


ENDME1 


POL A 




INS 




INS 




BPL 


GET14 


CMP A 


#$41 


BLT 


GET14 


CMP A 


#$5A 


BGT 


GET 13 


ADD A 


#$20 


RTS 




CMP A 


#$61 


BLT 


GET14 


CMP A 


#$7A 


BGT 


GET14 


SUB A 


#$20 


RTS 





NEXT CHARACTER 
SAVE KEY VALUE 
GET ENDMEM VALUE 

SET LOOP FOR QUARTER SECOND 

IF REPEAT, USE SIXTEENTH SECOND 



SAVE LOOP COUNT 
RESTORE KEY VALUE 

GET KBD PIA ADDRESS 
IS KEY STILL DOWN 
LOOP IF KEY STILL DOWN 
FLAG TO INDICATE KEY UP 

RESTORE LOOP COUNT 

LOOP WHILE KEY IS DOWN 

SAVE KEY VALUE OR KEY-UP FLAG 

GET UPPER/LOWER CASE FLAG 

SAVE CASE FLAG 
RESTORE KBD CHARACTER 
CLEAR OUT ENDMEM VALUE 
CLEAR OUT ENDME1 VALUE 

CHECK FOR UPPER CASE A TO Z 



SHIFT UPPER CASE CHAR TO LOWER 
CHECK FOR LOWER CASE A TO Z 

SHIFT LOWER CASE CHAR TO UPPER 



END 
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m\ 














NAM 


DUMBTER 




0003 








=• 


4800 




ORG 


$4800 




0004 




















0005 












TSMODE 


EQU 


$09 


TERMINAL MODE—/16, 7 BIT, E' 


0006 








$- 


1C 


CSRPTR EQU 


$1C 


SCREEN CURSOR LOCATION 


0007 








O 


28 


TEMP2C 


EQU 


$28 


TWO-BYTE TEMP 


0008 








*. 


38 


ACIANO 


EQU 


$38 


CASSETTE ACIA ADDRESS 


0009 








=,=. 


FC3D 


CLEAR 


EQU 


$FC3D 


CLEAR SCREEN 


0010 








I- 


FC64 


KBDPIA 


EQU 


$FC64 


CONTAINS KBD PIA ADDRESS 


0011 








>- 


FC8F 


INSERT 


EQU 


$FC8F 


EDIT A CHARACTER ON SCREEN 


0012 
0013 


4800 


DE 


38 


GG 


DE D@* 


INTLZX LDX 


ACIANO 


GET TIMESHARING ACIA ADDRESS 


0014 


4802 


86 


13 




86 D13 




LDA A 


#$13 


MASTER RESET ACIA 


0015 


4804 


A7 


00 




A7 D00 




STA A 


0,X 




0016 


4806 


86 


09 




86 D09 




LDA A 


#TSMODE 


SET ACIA-— /16 7 BIT EVEN PAR 


0017 


4808 


A7 


00 




A7 D00 




STA A 


0,X 




0018 


480A 


BD 


FC3D 




BD E<?= 




JSR 


CLEAR 


CLEAR SCREEN 


0019 




















0020 


480D 


DE 


1C 


GH 


DE D@$ 


BLINK 


LDX 


CSRPTR 


BLINK SCREEN CURSOR 


0021 


480F 


63 


00 




63 D00 




COM 


0,X 


SHIFT TO/FROM CURSOR BLOCK 


0022 


4811 


CE 


1800 




CE El 800 




LDX 


#$1800 


LOAD BLINK COUNT 


0023 


4814 


DF 


28 




DF D@C 




STX 


TEMP2C 


SAVE BLINK COUNT 


0024 


4816 


DE 


28 


GI 


DE D@C 


BLINK1 


LDX 


TEMP2C 


RESTORE BLINK COUNT 


0025 


4818 


09 






09 




DEX 






0026 


4819 


27 


F2 




27 R@GH 




BEQ 


BLINK 


RESTART BLINK COUNTER 


0027 




















0028 


481B 


DF 


28 


GY 


DF D@C 


ACIAIN 


STX 


TEMP2C 


SAVE X REGISTER 


0029 


481D 


86 


01 




86 D01 




LDA A 


#$01 




0030 


481F 


DE 


38 




DE D<§* 




LDX 


ACIANO 




0031 


4821 


A5 


00 




A5 D00 




BIT A 


0,X 


TEST RECEIVE REGISTER FULL 


0032 


4823 


27 


05 




27 R@GZ 




BEQ 


KBDIN 


BRANCH IF NO ACIA INPUT 


0033 


4825 


A6 


01 




A6 D01 




LDA A 


i,x 


GET INPUT CHAR 


0034 


4827 


BD 


FC8F 




BD E@> 




JSR 


INSERT 


DISPLAY ACIA INPUT CHAR 


0035 




















0036 


482A 


FE 


FC64 


GZ 


FE E@I 


KBDIN 


LDX 


KBDPIA 


GET KEYBOARD PIA ADDR 


0037 


482D 


86 


40 




86 D40 




LDA A 


#$40 


GET TEST MASK 


0038 


482F 


A5 


01 




A5 D01 




BIT A 


i,x 


TEST FOR KEYBOARD CHAR 


0039 


4831 


27 


E3 




27 R@GI 




BEQ 


BLINK1 


LOOP IF NO KBD INPUT 


0040 


4833 


DE 


1C 




DE D@$ 




LDX 


CSRPTR 


RESET BLINK CHAR 


0041 


4835 


A6 


00 




A6 D00 




LDA A 


0,X 




0042 


4837 


2A 


02 




2A R@HE 




BFL 


KBDIN1 




0043 


4839 


63 


00 




63 D00 




COM 


0,X 




0044 


483B 


FE FC64 


HE 


FE E@I 


KBDIN1 


LDX 


KBDPIA 


GET KEYBOARD PIA ADDR 


0045 


483E 


A6 


00 




A6 D00 




LDA A 


0,X 


GET KBD CHAR 


0046 


4840 


27 


OF 




27 R@HH 




BEQ 


EXIT 


END IF 00 HEX 


0047 


4842 


C6 


02 


HF 


C6 D02 


ACOUT 


LDA B 


#$02 




0048 


4844 


DE 


38 




DE D@* 




LDX 


ACIANO 




0049 


4846 


E5 


00 


HG E5 D00 


ACOTIO 


BIT B 


0,X 


TEST SEND REGISTER FULL 


0050 


4848 


27 


FC 




27 R@HG 




BEQ 


ACOTIO 


LOOP UNTIL EMPTY 


0051 


484A 


A7 


01 




A7 D01 




STA A 


1,X 


SEND 'KBD CHAR 


0052 


484C 


BD 


FC8F 




BD E@> 




JSR 


INSERT 


DISPLAY CHAR IN ASCII 


0053 


484F 


20 


BC 




20 R@GH 




BRA 


BLINK 


CONTINUE MAIN LOOP 


0054 




















0055 


4851 


39 




HH 


39 


EXIT 


RTS 






0056 




















0057 








END 




END 







EVEN 



/¥ 



LINE ADDR OBJECT 

0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 



PROGRAM CIRCLE ASSEMBLY LISTING 
SPHERE MOTOROLA 



NAM 



CIRCLE 



CIRCLE— JANUARY 12, 1978 VERSION 

PROGRAMMED BY 

JIM RAEHL, 943 BEGONIA, ESCONDIDO, CA 

(714) 746-3562 (714) 485-2580 (WORK) 



92027 



THIS PROGRAM IS TAKEN FROM AN ARTICLE ENTITLED 
"SERENDIPITOUS CIRCLES" IN THE AUGUST 1977 ISSUE OF 
BYTE MAGAZINE (P. 70) . THE ORIGINAL PROGRAM USED A 
DAC TO DISPLAY THE OUTPUT ON AN OSCILLOSCOPE. THIS 
VERSION IS ADAPTED FOR THE SPHERE CRT BOARD. 
INSTRUCTIONS ARE GIVEN IN BOXES IN THE PROGRAM TO 
ADAPT IT TO A CRT8 OR GRAPHICS BOARD. THE ORIGINAL 
PROGRAM WAS FOUND TO BE TOO DULL I LIVENED IT UP 
BY ALTERING THE 16-BIT X AND Y COORDINATE VALUES BY 
A DETERMINED ALGORITHM—INCREMENT THE COORDINATE BY 
A CONSTANT, AND THEN INCREMENT THE CONSTANT FOR MORE 
VARIETY. I ALSO FOUND THAT PREVIOUS POINTS HAD TO BE 
ERASED, OR THE SCREEN WOULD EVENTUALLY FILL UP. 
THUS, ONLY THE 64 MOST RECENT POINTS ARE RETAINED. 
IT WAS ALSO FOUND TO BE MORE INTERESTING IF THE RATE 
OF DISPLAY WAS SLOWED DOWN. 



CIRCLE DRAWING PROGRAM 
WRITTEN BY WILLIAM F. GALWAY 
30 DEC 76 
THE ALGORITHM USED IS AS FOLLOWS 



LOOP 



X <- X - Y/2 
Y <- Y + X/2 
GOTO LOOP 



*********************************************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

*********************************************** 

* 

* SIXTEEN BIT ARITHMETIC IS USED ALTHOUGH ONLY 

* 5 BITS' OF X AND 4 BITS OF Y ARE DISPLAYED. 
*********************************************** 
* 

SOME GOOD STARTING VALUES FOR (X,Y) ARE 
(7FOO,0000) 
(7F00.8100) 
(7DO0,7DOO) 
(7CF3.7CF3) 
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PROGRAM CIRCLE ASSEMBLY LISTING 



LINE ADDR OBJECT 



SPHERE 



MOTOROLA 



0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 

0096 0400 CE 7CF3 

0097 0403 DF 50 

0098 0405 CE 7CF3 

0099 0408 DF 52 

0100 040A 86 01 



A= 
B=> 
G= 
C= 
0= 
D- 
1= 
J- 
M- 
K= 
N« 
P- 

Q- 

R- 
S- 



400 



50 
52 
54 
56 
57 
58 
5A 
5C 
5D 
5E 
5F 
60 
62 
64 
66 



E CE E7CF3 
DF D@A 
CE E7CF3 
DF D@B 
86 D01 



*********************************************** 
* 

* THE PATTERN GENERATION CAN BE VARIED BY CHANGING THE 

* OPERAND FIELDS OF CERTAIN INSTRUCTIONS. THESE ARE 

* MARKED WITH **N IN THE COMMENT FIELD, WHERE N IS A 

* NUMBER. THE INSTRUCTION CAN BE CHANGED TO NOP (HEX 01) 

* IN ALL ITS BYTES TO DISABLE THE FEATURE. FEATURE 

* EXPLANATIONS 

* 1. STARTING VALUES OF X AND Y (SEE ABOVE). SMALL UPPER 

* BYTE VALUES GENERATE SMALL CIRCLES; BIGGER ONES 

* GENERATE BIGGER CIRCLES. IF THESE INSTRUCTIONS ARE 

* SET TO NOP, THE INITIAL VALUES DEPEND ON WHAT IS IN 

* WK1 AND WK2. 
CENTER OF CIRCLE. IF SET TO LOAD 0, THE CENTER IS 
IN THE CORNERS (THE ONLY OTHER INTERESTING PLACE). 
X AND Y BIAS TO AVOID FIXED PATTERNS. IF SET TO 
LOAD O'S, THE POINT GENERATION GOES INTO A FIXED 
LOOP- 

DELAY COUNT TO SLOW PATTERN GENERATION, SO IT'S 
NOT A BLINDING BLUR. 
ERASE BUFFER END, TO ERASE 64TH PREVIOUS POINT. 



2. 



3. 



4. 



5. 



ORG $400 



* DEFINE TEMP STORAGE LOCATIONS 



WK1 

WK2 

WK3 

WK4 

WK41 

WK5 

WK6 

WK7 

WK71 

WK8 

WK81 

WK9 

WK10 

WK11 

WK12 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$50 
$52 
$54 
$56 
$57 
$58 
$5A 
$5C 
$5D 
$5E 
$5F 
$60 
$62 
$64 
$66 



* SET INITIAL VALUES 



START LDX 
STX 
LDX 
STX 



#$7CF3 
WK1 

#$7CF3 
WK2 



LDA A #$01 



X VALUE 

Y VALUE 
DELAY COUNT 
ARITHMETIC TEMP 

SAVE FOR X REGISTER 

SAVE FOR HIGH 5 BITS OF X 

X BIAS TO AVOID FIXED PATTERN 

Y BIAS TO AVOID FIXED PATTERN 

PTR TO CURRENT ERASE BUFF POS 

Y SCREEN CENTER BIAS 
X SCREEN CENTER BIAS 
ERASE BUFFER END LOCATION 



**1— SET X INITIAL VALUE 
**1— SET Y INITIAL VALUE 
**2— HEX 8 TO ADD TO TOP Y 4 BITS 
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PROGRAM CIRCLE ASSEMBLY LISTING 



LINE ADDR OBJECT 



SPHERE 



MOTOROLA 



0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 



040C 
040E 
0410 
0412 
0414 
04 16 
0418 
04 LA 
041C 
04 IE 
0420 
0422 
0425 
0427 
042A 



042C 
042F 
0431 
0433 
0435 
0436 
0438 



043A 
043D 
043F 
0440 
0442 
0445 



97 62 
86 10 
97 64 
86 03 
97 5C 
86 01 
97 5D 
86 03 
97 5E 
86 01 
97 5F 
CE 0800 
DF 54 
CE OOBO 
DF 66 



CE 0070 
DF 60 
86 D2 
A7 00 
08 

9C 66 
26 F9 



FE FC40 
C6 20 
09 

E7 00 
BC FC38 
26 F8 



97 D@Q 
86 D10 
97 D@R 
86 D03 
97 D@J 
86 D01 
97 D@M 
86 DO 3 
97 D@K 
86 D01 
97 D@N 
CE E0800 
DF D@G 
CE E@U 
DF D@S 



CE E@T 
DF D@P 
86 DD2 
A7 DOO 
08 

9C D@S 
26 R@V 



FE EFC40 

C6 D20 

09 

E7 DOO 

BC EFC38 

26 R@Y 



STA A 
LDA A 
STA A 
LDA A 
STA A 
LDA A 
STA A 
LDA A 
STA A 
LDA A 
STA A 
LDX 
STX 
LDX 
STX 



WK10 

#$10 

WK11 

#3 

WK7 

#1 

WK71 

#3 

WK8 

#1 

WK81 

#$0800 

WK3 

#PTEND 

WK12 



**2— HEX 10 TO ADD TO TOP X 4 BIT 



**3--X BIAS TO AVOID FIXED PATT 



**3~BIAS INCREMENT 



**3— Y BIAS TO AVOID FIXED PATT 



**3— BIAS INCREMENT 



**4—DELAY COUNT FOR POINT GEN 



**5— END OF ERASE BUFFER 



* INITIALIZE ERASE BUFFER TO HARMLESS ERASE LOCS 



GET POINT BUFFER LOC 

INIT CURRENT BUFFER LOC POINTER 

HARMLESS LOC VALUE 



LDX 


#PTBUF 


STX 


WK9 


LDA A 


#$D2 


ELOOP STA A 


0,X 


INX 




CPX 


WK12 


BNE 


ELOOP 



* CLEAR SCREEN 

LDX $FC40 

LDA B #$20 
DLOOP DEX 

STA B 0,X 

CPX $FC38 

BNE DLOOP 



NEXT LOC TO INIT 
LAST LOC TO INIT? 
LOOP UNTIL DONE 



GET FIRST SCREEN LOC TO CLEAR 
SET SCREEN TO SPACES 
NEXT LOC TO CLEAR 

LAST LOC TO CLEAR? 
LOOP UNTIL DONE 



*********************************************** 

* 

IF THE CRT USED IS A CRT8, THE 7 INSTRUCTIONS 
FOLLOWING THIS BLOCK SHOULD BE REPLACED WITH THE 
CODE IN THIS BLOCK. THE CODE IN THIS BLOCK EXTRACTS 
THE TOP BITS OF THE X VALUE SUCH THAT THE RESULT 
IS A VALUE FROM TO 79. THIS IS DONE BY EXTRACTING 
THE TOP 7 BITS (VALUE 128), MULTIPLYING BY 5, AND 
DIVIDING BY 8. IN GENERAL, ANY SCREEN WIDTH CAN BE 
ACCOMMODATED IN THIS WAY. THE NEXT HIGHER MULTIPLE 
OF 2 ABOVE THE SCREEN WIDTH IS FOUND. THE 
CORRESPONDING NUMBER OF TOP BITS IS EXTRACTED AND 
SHIFTED TO THE RIGHT BORDER OF A BYTE. IF THE 
SCREEN LENGTH IS A MULTIPLE OF 2, WE ARE DONE. IF 
NOT, FIND A FRACTION WHICH CAN BE USED TO MULTIPLY 
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PROGRAM CIRCLE ASSEMBLY LISTING 



LINE ADDR OBJECT 

0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 

0195 0447 96 50 

0196 0449 47 

0197 044A 47 

0198 044B 47 

0199 044C 84 IF 

0200 044E 9B 64 



SPHERE 



MOTOROLA 

THE NEXT HIGHER POWER OF 2 TO GET THE SCREEN WIDTH. 
MULTIPLY THE EXTRACTED RESULT BY THE NUMERATOR OF 
THIS FRACTION. THE MULTIPLY IS DONE BY SHIFTING THE 
EXTRACTED RESULT TO GET MULTIPLIES BY 2, AND ADDING 
THE DESIRED PARTIAL PRODUCTS. THE RESULT OF THE 
MULTIPLIES IS DIVIDED BY THE DENOMINATOR, WHICH MUST 
BE A POWER OF 8. THE DIVIDE IS DONE BY RIGHT SHIFTING. 



DISPLAY ALGORITHM FOR CRT8 
POSITION = $E000 + 

((TOP Y 5 
((TOP X 7 



BITS * 3 / 4 + 12) MOD 24)*80 + 
BITS * 5 / 8 + 40) MOD 80) 



LDA A 
ASR A 
AND A 
STA A 
ASL A 
ROL A 
ADC B 
ADD A 
ADC B 
ASR A 
ASR A 
ASR A 
AND A 
ASL B 
ASL B 
ASL B 
ASL B 
ASL B 
ABA 
ADD A 
CMP A 
BLT 
SUB A 



WK1 

#$7F 
WK6 



#0 

WK6 

#0 



#$1F 



GET HI ORDER BYTE OF X 
USE HIGH 7 BITS 



SAVE ORIGINAL 
MULTIPLY BY 4 



EXTRACTED VALUE 



* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 

*LOOP 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
*********************************************** 

* DISPLAY ALGORITHM FOR CRT1 

* POSITION = $E000 + 

* ((TOP Y 4 BITS + HEX 8) MOD HEX 10)*32 + 

* ((TOP X 5 BITS + HEX 10) MOD HEX 20) 



#40 
#80 
GLOOP 
#80 



PUT OVERFLOW IN B 

ADD ORIGINAL VALUE 

NOW FULLY MULTIPLIED BY 5 

DIVIDE LOWER PART OF RESULT BY 8 



GET RID OF SIGN PROPAGATION 
SHIFT UPPER PART OF RESULT 
TO ADD TO A 



ADD TOGETHER LOWER & UPPER PARTS 

** 2— SHIFT ORIG TO 40TH LINE CHAR 

CHECK FOR OVERFLOW 

BRANCH IF NO OVERFLOW 

SHIFT OVERFLOW TO LINE FIRST HALF 



96 D@A 

47 

47 

47 

84 D1F 

9B D@R 



LOOP 



LDA 
ASR 
ASR 
ASR 
AND 
ADD 



WK1 



#$1F 
WK11 



GET HI ORDER OF X 
USE HIGH 5 BITS 



ADD HEX 10 TO TOP X 5 BITS 
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PROGRAM CIRCLE ASSEMBLY LISTING 



LINE ADDR OBJECT 



SPHERE 



MOTOROLA 



0201 0450 84 IF 

0202 

0203 0452 97 5A 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

0211 

0212 

0213 

0214 

0215 

0216 

0217 

0218 

0219 

0220 

0221 

0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

p244 

0245 

0246 

0247 

0248 0454 96 52 

0249 0456 5F 

0250 0457 49 



84 D1F 
Z 97 D@I 



AND A #$1F 
GLOOP STA A WK6 



96 D@B 

5F 

49 



MOD HEX 20 

SAVE HIGH 5 BITS OF X 



*********************************************** 
* 

IF A CRT8 IS USED, THE 6 INSTRUCTIONS FOLLOWING 
THIS BLOCK SHOULD BE REPLACED WITH THE CODE IN THIS 
BLOCK. THE CODE IN THIS BLOCK EXTRACTS THE TOP BITS OF 
THE Y VALUE SUCH THAT THE RESULT IS A VALUE FROM TO 
24. THIS IS DONE BY EXTRACTING THE TOP 5 BITS (VALUE 
32), MULTIPLYING BY 3, AND DIVIDING BY 4. THE RESULT 
IS SHIFTED TO THE 12TH SCREEN LINE, AND MULTIPLIED BY 
80. 



LDA 
ASR 
ASR 
AND 
TAB 
ASR 
ABA 
ASR 
ASR 
ADD 
CMP 
BLT 
SUB 



WK2 



#$3E 



#12 
#24 
YLOOP 
#24 



GET HI ORDER BITS OF Y 



USE HIGH 5 BITS 

PUT HI 5 BITS*2 IN B 

BITS*2 + BITS - BITS*3 
DIVIDE (RESULT*3) BY 4 



** 2— SHIFT ORIGIN TO 12TH LINE- 
GET (DIVIDE RESULT) MOD 24 ! 



V> 



*YLOOP CLR B 
ASL A 
ASL A 
ASL A 
ROL A 
ADC B 
STA B 
STA A 
ASL B 
ROL A 
ADC B 
ASL B 
ROL A 
ADC B 
ADD A 
ADC B 



MULTIPLY (MOD RESULT) BY 16 



SAVE MULTIPLIED RESULT 



MULTIPLY (MOD RESULT) BY 64 



* 
* 
* 
* 

* ADC B #0 

* STA B WK4 

* STA A WK41 
* 

* 

* ADC B #0 
* 
* 

* ADC B #0 

* ADD A WK41 

* ADC B WK4 
* 

*********************************************** 



ADD (MULT BY 64) AND (MULT BY 16) 



LDA A WK2 
CLR B 
ROL A 



GET HI ORDER OF Y 

USE HI ORDER 4 BITS OF Y * 32 



COLUMN 



1 



K 
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PROGRAM CIRCLE ASSEMBLY LISTING 



LINE ADDR OBJECT 



0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 

0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 

0297 

0298 

0299 

0300 



0458 

045A 
045C 
045E 



0462 
0465 
0467 
0469 
046B 
046D 
046E 
0470 
0472 
0473 
0475 
0477 
0479 
047B 
047D 
04 7F 
0481 
0482 
0483 
0485 
0487 
048A 
048C 



048F 
0491 
0493 
0494 
0495 
0496 
0497 
0499 
049B 
049D 
04 9F 
04A1 
04A2 
04A3 
04A5 
04A7 
04A9 



D9 62 
C4 01 
84 EO 
20 02 



0460 20 E5 



FB FC38 
9B 5A 
C9 00 
DE 60 
EE 00 
37 

C6 20 
E7 00 
33 

DE 60 
E7 00 
A7 01 
EE 00 
86 6F 
A7 00 
DE 60 
08 
08 

9C 66 
26 03 
CE 0070 
DF 60 
CE O05O 



E6 03 
A6 02 
47 
56 
40 
50 

82 00 
EB 01 
A9 00 
E7 01 
A7 00 
47 
56 

EB 03 
A9 02 
E7 03 
D6 5E 



SPHERE 

D9 D@Q 
C4 DOl 
84 DEO 
20 R@2 

1 20 R@F 



2 FB 
9B 
C9 
DE 
EE 
37 
C6 
"E7 
33 
DE 
E7 
A7 
EE 
86 
A7 
DE 
08 
08 
9C 
26 
CE 

W DF 
CE 



EFC38 

D@I 

DOO 

D@P 

DOO 

D20 
DOO 

D@P 
DOO 
DOl 
DOO 
D6F 
DOO 
D@P 



D@S 
R@W 
E@T 
D@P 
E@A 



MOTOROLA 

ADC B WK10 

AND B #$01 

AND A #$E0 

BRA ALOOP 



ADD HEX 8 TO TOP Y 4 BITS 
MOD HEX 10 



BLOOP BRA 

ALOOP ADD B 
ADD A 
ADC B 
LDX 
LDX 
PSH B 
LDA B 
STA B 
POL B 
LDX 
STA B 
STA A 
LDX 
LDA A 
STA A 
LDX 
INX 
INX 
CPX 
BNE 
LDX 

FLOOP STX 
LDX 



LOOP 

$FC38 

WK6 

#0 

WK9 

0,X 

#$20 
0,X 

WK9 

0,X 

1,X 

0,X 

#$6F 

0,X 

WR9 



WK12 

FLOOP 

#PTBUF 

WK9 

#WK1 



ADD SCREEN BASE ADDRESS 
ADD X VALUE 

GET 64TH PREVIOUS PT LOG 

SAVE B 

SPACE TO ERASE 64TH PREV LOC 
**5— CLEAR 64TH PREVIOUS POINT 
RESTORE B 

SAVE CURRENT POINT LOCATION 

PUT CURRENT LOC INTO X 
DISPLAY SMALL LETTER 
DISPLAY THE POINT 

NEXT PREVIOUS POINT TO CLEAR 

WRAP AROUND TO BUFFER START 

IF AT END 

BUFFER START LOC 

SAVE PTR TO BUFFER LOC 

SET X TO POINT TO WORK AREA 



* FIGURE NEXT POINT LOCATION 



E6 D03 

A6 DO 2 

47 

56 

40 

50 

82 DOO 

EB DOl 

A9 DOO 

E7 DOl 

A7 DOO 

47 

56 

EB DO 3 

A9 DO 2 

E7 D03 

D6 D@K 

COLUMN 12 3 4 5 6 7 
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LDA B 


3,X 


B GETS L0 Y 


LDA A 


2,X 


A GETS HI Y 


ASR A 




GET Y/2 


ROR B 






NEG A 




DO A 16 BIT NEGATE 


NEG B 




NEGATE LO ORDER 


SBC A 


#0 


PROPAGATE CARRY 


ADD B 


i,x 


GET X+(-Y/2) LO ORDER 


ADC A 


o,x 


THEN HI ORDER 


STA B 


l,x 


STORE LO X 


STA A 


o,x 


THEN HI X 


ASR A 




GET X/2 HI ORDER 


ROR B 




LO ORDER 


ADD B 


3,X 


ADD LO Y 


ADC A 


2,X 


ADD HI Y WITH CARRY 


STA B 


3,X 


SAVE LO Y 


LDA B 


WK8 


ADD Y BIAS TO AVOID FIXED PATT 



10 



PROGRAM CIRCLE ASSEMBLY LISTING 



LINE ADDR OBJECT 



0301 

0302 

0303 

0304 

0305 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 

0334 

0335 

0336 

0337 

0338 

0339 

0340 



04AB 
04AC 
04AE 
04B0 
04B2 
04B4 
04B6 
04B7 
04B9 



04C0 
04C2 
04C5 
04C7 
04C9 
04CB 
04CD 



04CE 
04D1 
.04D3 
04D4 
04D6 
04D9 
04DB 



IB 

DB 5F 
D7 5E 
A7 02 
A6 00 
D6 5C 
IB 

DB 5D 
D7 5C 



04BB DE 54 
04BD 09 
04BE 26 FD 



86 40 
FE FC64 
A5 01 
27 97 
8D 03 
DF 1C 
39 



FE FC40 
C6 20 
09 

E7 00 
BC FC38 
26 F8 
39 



X 



T- 

U= 



SPHERE 

IB 

DB D@N 
D7 D@K 
A7 D02 
A6 D00 
D6 D@J 
IB 

DB D@M 
D7 D@J 



DE D@G 

09 

26 R@L 



86 D40 
FE EFC64 
A5 D01 
27 R@l 
8D R@X 
DF D1C 
39 



FE EFC40 

C6 D20 

09 

E7 DOO 

BC EFC38 

26 R@H 

39 

070 
OBO 



END 



MOTOROLA 

ABA 

ADD B WK81 

STA B WK8 

STA A 2,X 

LDA A 0,X 

LDA B WK7 

ABA 

ADD B WK71 

STA B WK7 



CHANGE Y BIAS 

SAVE HI Y 

GET X HI BYTE 

ADD X BIAS TO AVOID FIXED PATT 

CHANGE X BIAS 



* DELAY LOOP TO SLOW PATTERN GENERATION 

WK3 DELAY LOOP TO SLOW PATTERNS 
TLOOP LOOP UNTIL TIMED-OUT 



LDX 

TLOOP DEX 

BNE 



* TEST IF KEYBOARD KEY IS TYPED. EXIT IF SO. 

LDA A #$40 GET MASK FOR KEYBOARD 

LDX $FC64 GET KEYBOARD ADDRESS 

BIT A 1,X TEST FOR KEY TYPED 

BEQ BLOOP LOOP TO DISPLAY SOME MORE 

BSR CLEAR CLEAR SCREEN 

STX $1C SET CURSOR POINTER 

RTS EXIT TO MONITOR 



* CLEAR SCREEN 

CLEAR LDX $FC40 

LDA B #$20 

CLOOP DEX 

STA B 0,X 

CPX $FC38 

BNE CLOOP 
RTS 



GET FIRST SCREEN LOC TO CLEAR 
SET SCREEN TO SPACES 
NEXT LOC TO CLEAR 

LAST LOC TO CLEAR? 
LOOP UNTIL DONE 



PTBUF EQU 
PTEND EQU 

END 



$070 ERASE BUFFER START LOCATION 
$0B0 ERASE BUFFER END LOCATION 
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PROGRAM WORM 



ASSEMBLY LISTING 



E200 81 4B 
E202 26 31 
E204 BD E78B 



LINE ADDR OBJECT 



0001 
0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 



E207 
E209 
E20B 
E20D 
E20F 
E210 



E212 
E214 
E215 
E217 
E219 
E21B 



E21D 
E21F 
E221 
E223 
E224 
E226 
E228 



86 3F 
DE 3C 
DF 3E 
A7 00 
08 
26 FB 



20 23 
30 

EE 00 
DF 02 
86 8C 
97 03 



9C 02 
27 10 
A6 00 
08 

DF 38 
DE 3E 
A7 00 



SPHERE 


MOTOROLA 




NAM 


WORM 


E200 


ORG 


$E200 


N- 02 


TEMP 2 EQU 


$2 


1- 03 


TEMP2A EQU 


$3 


0- 3C 


BFRPTR EQU 


$3C 


p= 3E 


BFRSZE EQU 


$3E 


Q- 38 
R= E78B 


ACIANO EQU 


$38 


ADDSET EQU 


$E78B 


Y- FC38 


SCBEG EQU 


$FC38 



81 D4B 
26 R@D 
BD E@R 



86 D3F 
DE D@0 
DF D@P 
A7 DOO 
08 
26 R@T 



20 R@Z 
30 

EE DOO 
DF D@N 
86 D8C 
97 D@l 



U 



9C D@N 
27 R@V 
A6 DOO 
08 

DF D@Q 
DE D@P 
A7 DOO 



TEMP FOR LOCATION FINDING 

START LOCATION TO CRAWL 
TEMP FOR MOVING WORM TO START 
TEMP FOR MOVING WORM TO START 
PARAMETER CRACK ROUTINE 
SCREEN START ADDRESS 

**************************************** 
* INTERFACE TO RAEHL EXTENDED MONITOR 
**************************************** 

WORM CMP A #$4B K FOR WORM FUNCTION 

55 SJ GET LOCATION TO START FROM' 

**************************************** 

* SET MEMORY TO SWI (3F) , MOVE WORM TO START 
**************************************** 

* SET MEMORY TO SWI INSTRUCTIONS 

LDA A #$3F SWI OP CODE 

LDX BFRPTR GET START ADDR TO CLEAR 

STX BFRSZE 

WORM1 STAA 0,X SET RATION TO SWI 

TNX NEXT LOCATION TO SET 

BNE WORM1 LOOP UNTIL CLEARED TO $FFFF 

* FIND THIS ROUTINE'S LOCATION (ASSUMES 100 HEX MULT) 

BRA WORM4A 



STACK REGISTER TO X 

GET WORM PROGRAM START ADDR 



WORMO TSX 

LDX 0,X 

qrtiy TEMP 2 

LDA A #$8C SECOND BYTE OF WORM END ADDR 

STA A TEMP2A SET UP WORM END ADDR 

* MOVE WORM TO START LOCATION 

WORM2 CPX TEMP2 CHECK ALL OF PROGRAM MOVED 

BEQ WORM3 

LDA A 0,X GET BYTE TO MOVE 

THY 

STX ACIANO SAVE SOURCE BYTE ADDRESS 

LDX BFRSZE GET DESTINATION ADDRESS 

STA A OX STORE BYTE AT DESTINATION 
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PROGRAM WORM 



ASSEMBLY LISTING 



LINE ADDR OBJECT 



SPHERE 



MOTOROLA 



0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 



E22A 08 

E22B DF 3E 

E22D DE 38 

E22F 20 EC 

E231 DE 3C 

E233 6E 00 

E235 20 55 

E237 8D DB 



E239 
E23C 



8E 0060 
20 4C 



E23E 30 
E23F EE 00 
E241 35 



E242 C6 3A 

E244 34 

E245 32 

E246 31 

E247 36 

E248 34 

E249 Al 00 

E24B 26 FE 

E24D 09 

E24E 5A 

E24F 26 F3 

E251 86 



E252 C6 19 

E254 34 

E255 32 

E256 31 

E257 36 

E258 34 

E259 Al 00 

E25B 26 FE 



08 

DF D@P 
DE D@Q 
20 R@U 

V DE D@0 
6E D00 

D 20 R@X 

Z 8D R@A 



W 



H 



8E E0060 
20 R@I 



30 

EE DOO 

35 



C6 D3A 

34 

32 

31 

36 

34 

Al DOO 

26 R@E 

09 

5A 

26 R@C 

86 



C6 D19 

34 

32 

31 

36 

34 

Al DOO 

26 R@H 



INX 
STX 
LDX 
BRA 

WORM3 LDX 
JMP 

WORME1 BRA 

WORM4A BSR 



BFRSZE 

ACIANO GET SOURCE ADDRESS 

WORM2 

BFRPTR GET ADDRESS TO START AT 
0,X START WORM CRAWLING 



WORME 
WORMO 



PUT WORM START ADDR IN STACK 



**************************************** 

* WORM PROGRAM (INDEPENDENT FROM ABOVE CODE) 
**************************************** 

WORM4 LDS #$0060 INITIAL STACK LOCATION 

BRA TOP GET NEW TOP OF WORM ADDRESS 

* RELOCATE STACK TO TOP OF WORM 



BEGIN 



TSX 
LDX 
TXS 



0,X 



* START OF INNER LOOP 



LDA B 


#58 


INNERL DES 




PUL A 




INS 




PSH A 




DES 




CMP A 


0,X 


HANGI BNE 


HANGI 


DEX 




DEC B 




BNE 


INNER 


FCB 


$86 



* START OF OUTER LOOP 



LDA B 


#25 ■ 


OUTERL DES 




PUL A 




INS 




PSH A 




DES 




CMP A 


0,X 


HANGO BNE 


HANGO 



STACK REGISTER TO X 

TOP OF WORM TO X 

TOP OF WORM TO STACK REGISTER 



UPPER PART LENGTH 
BACKTRACK STACK POINTER 
GET NEXT BYTE TO MOVE 
STACK TO LOC TO MOVE TO 
MOVE BYTE UP ONE 
STACK POINTER DOWN ONE BYTE 
CHECK MOVED BYTE 
HANG IF BAD BYTE 

LOOP UNTIL UPPER PART MOVED 

DUMMY 2-BYTE INSTRUCTION 



LOWER PART LENGTH 
BACKTRACK STACK POINTER 
GET NEXT BYTE TO MOVE 
STACK TO LOC TO MOVE TO 
MOVE BYTE UP ONE 
STACK POINTER DOWN ONE BYTE 
CHECK MOVED BYTE 
HANG IF BAD BYTE 
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LINE ADDR OBJECT 



PROGRAM WORM 



SPHERE 



ASSEMBLY LISTING 



MOTOROLA 



0101 


E25D 


09 




09 


0102 


E25E 


5A 




5A 


0103 


E25F 


26 


F3 


26 R@F 


0104 










0105 










0106 










0107 


E261 


8D 


02 


8D R@J 


0108 


E263 


20 


25 


20 R@I 


0109 










0110 


E265 


DF 


00 


J DF D00 


0111 


E267 


FE 


FC38 


FE E@Y 


0112 


E26A 


96 


00 


96 D00 


0113 


E26C 


8D 


02 


8D R@K 


0114 


E26E 


96 


01 


96 D01 


0115 


E270 


16 




K 16 


0116 


E271 


47 




47 


0117 


E272 


47 




47 


0118 


E273 


47 




47 


0119 


E274 


47 




47 


0120 


E275 


8D 


01 


8D R@L 


0121 


E277 


17 




17 


0122 


E278 


84 


OF 


L 84 DOF 


0123 


E27A 


8B 


30 


8B D30 


0124 


E27G 


81 


3A 


81 D3A 


0125 


E27E 


2D 


02 


2D R@M 


0126 


E280 


8B 


07 


8B D07 


0127 


E282 


A7 


00 


M A7 DOO 


0128 


E284 


08 




08 


0129 










0130 










0131 










0132 


E285 


86 


3F 


86 D3F 


0133 


E287 


36 




36 


0134 


E288 


31 




31 


0135 


E289 


39 




39 


0136 










0137 










0138 










0139 


E28A 


8D 


B2 


I 8D R@B 


0140 










0141 


E28C 


39 




X 39 


0142 










0143 








END 



DEX 
DEC B 
BNE 



LOOP UNTIL LOWER PART MOVED 



OUTERL 



* PRINT BOTTOM ADDRESS OF WORM 



PRINT 



CNVT 



PNT 



PNT1 



BSR 


PRINT 


BRA 


TOP 


STX 


$00 


LDX 


SCBEG 


LDA A 


$00 


BSR 


CNVT 


LDA A 


$01 


TAB 




ASR A 




ASR A 




ASR A 




ASR A 




BSR 


PNT 


TBA 




AND A 


#$0F 


ADD A 


#$30 


CMP A 


#$3A 


BLT 


PNT1 


ADD A 


#$07 


STA A 


0,X 


INX 





PRINT ADDRESS ON SCREEN 
RELOCATE STACK 

SAVE ADDRESS TO PRINT 

GET SCREEN ADDRESS 

PRINT FIRST BYTE OF ADDRESS 

PRINT SECOND BYTE OF ADDRESS 
SAVE BYTE TO PRINT 
MOVE LEFT DIGIT RIGHT 



CONVERT LEFT DIGIT TO CHAR 
CONVERT RIGHT DIGIT TO CHAR 
ISOLATE DIGIT TO PRINT 
ADD CHAR BIAS 
CHECK FOR A TO F 

ADD A TO F EXTRA BIAS 
PRINT THE DIGIT 
NEXT PRINT POSITION 



* COVER TRACKS WITH SWI INSTRUCTIONS 

LDA A #$3F SOFTWARE INTERRUPT CODE 

PSH A 

INS RESTORE STACK POINTER 

RTS 

* PUT NEW TOP OF WORM ADDRESS IN STACK 
TOP BSR BEGIN NEW ADDRESS IN STACK 
WORME RTS RETURN TO EXT MONITOR IF NOT WORM 

END 
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LINE ADDR OBJECT 

0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 

0028 0200 4F 

0029 0201 97 60 

0030 0203 C6 20 

0031 0205 D7 5E 

0032 0207 FE FC38 

0033 020A DF 70 

0034 020C FE FD47 

0035 020F DF 5A 

0036 0211 09 

0037 0212 E7 00 

0038 0214 9C 70 

0039 0216 26 F9 

0040 0218 B6 FD63 

0041 021B 97 5C 

0042 021D 39 
0043 

0044 
0045 
0046 
0047 
0048 
0049 
0050 



PROGRAM CRTOUT 
SPHERE 



200 



ASSEMBLY LISTING 
MOTOROLA 



c- 


1C 


D- 


ID 


J- 


58 


K- 


5A 


L= 


5C 


M= 


5E 


N= 


60 


Q- 


66 


«^ 


70 






FC38 
FD47 



RA 4F 
97 
C6 
D7 
FE 
DF 
FE 
DF 

RD 09 
E7 
9C 
26 
B6 
97 
39 



D@N 
D20 
D@M 
E@( 
D@~ 
E@& 
D@K 

D00 

D<r 

R@RD 

EFD63 

D@L 



NAM 



ORG 



CSRPTR EQU 
CSRPT1 EQU 
CRTBEG EQU 
CRTEND EQU 
LINSIZ EQU 
SCRLFG EQU 
LNCNTR EQU 
TEMPA EQU 
SCRBEG EQU 
TEMPX EQU 
TEMPX1 EQU 
TEMPX2 EQU 
TEMPX3 EQU 

SCBEG EQU 
LASTLN EQU 



CRTOUT 

$200 

$1C 
$1D 
$58 
$5A 
$5C 
$5E 
$60 
$66 
$70 
$84 
$85 
$86 
$87 

$FC38 
$FD47 



SCREEN CURSOR LOCATION 

START ADDR OF CRT MEMORY 
LAST ADDR OF CRT MEMORY 
LENGTH OF CRT LINE 
SCROLL FLAG FOR CRT 
POSITION ON CRT LINE 
TEMP FOR A REGISTER IN PSHX 
VIDEO SCREEN START LOCATION 
TEMP FOR X REGISTER IN PSHX 

TEMP FOR RETURN ADDR IN PSHX 



SCREEN START LOC FROM SPHERE 
LAST SCREEN LINE POSITION 



************************************************** 

* 

* CRT DRIVER INITIALIZATION 

************************************************** 



SCINIT CLR A 
STA A 
LDA B 
STA B 
LDX 
STX 
LDX 
STX 

SCLOOP DEX 

STA B 
CPX 
BNE 
LDA A 
STA A 
RTS 



LNCNTR 

#$20 

SCRLFG 

SCBEG 

SCRBEG 

LASTLN 

CRTEND 

0,X 
SCRBEG 
SCLOOP 
$FD63 

LINSIZ 



SET LINE POSITION 

SET SCROLL FLAG 

SET SCREEN START ADDRESS 

SET SCREEN END ADDRESS 

NEXT SCREEN LOC TO BLANK 

TEST ENTIRE SCREEN BLANKED 

SET LINE LENGTH 



************************************************** 
* 

* INDEPENDENT CRT DRIVER 

* 

************************************************** 
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PROGRAM CRTOUT ASSEMBLY LISTING 



LINE 


ADDR 


OBJECT 


I 


SPHERE 




1 


4DT0R0L 


k 




0051 


021E 


36 




SA 


36 


CRTOUT 


PSH A 




SAVE REGISTERS 


0052 


021F 


37 






37 






PSH B 






0053 


0220 


8D 


6B 




8D R@RB 






BSR 


PSHX 




0054 


0222 


DE 


1C 




DE D@C 






LDX 


CSRPTR 


GET CURSOR ADDRESS 


0055 


0224 


8D 


07 




8D R@SB 






BSR 


CRTOOO 


PRINT THE CHARACTER 


0056 


0226 


DF 


1C 




DF D@C 






STX 


CSRPTR 


SAVE NEW CURSOR ADDRESS 


0057 


0228 


8D 


77 




8D R@RC 






BSR 


PULX 


RESTORE REGISTERS 


0058 


022A 


33 






33 






PUL B 






0059 


022B 


32 






32 






PUL A 






0060 


022C 


39 






39 






RTS 






0061 












* 










0062 












* 


(HT) 


HORIZONTAL TAB 


8 SPACES 


0063 












* 










0064 


022D 


81 


09 


SB 


81 D09 


CRTOOO 


CMP A 


#$09 


CHECK FOR HORIZONTAL TAB 


0065 


022F 


26 


3E 




26 R@TC 






BNE 


CRT080 




0066 


0231 


96 


ID 




96 D@D 






LDA A 


CSRPT1 


INCREMENT LINE POS TO MULT ( 


0067 


0233 


8A 


07 




8A DO 7 






ORA A 


#7 




0068 


0235 


97 


ID 




97 D@D 






STA A 


CSRPT1 




0069 


0237 


96 


60 




96 D@N 






LDA A 


LNCNTR 


INCREMENT CURSOR POS TO MUL: 


0070 


0239 


8A 


07 




8A DO 7 






ORA A 


#7 


• 


0071 


023B 


97 


60 




97 D@N 






STA A 


LNCNTR 




0072 


023D 


DE 


1C 




DE D@C 






LDX 


CSRPTR 


GET CURRENT CURSOR POSITION 


0073 


023F 


D6 


5C 




D6 D@L 






LDA B 


LINSIZ 


GET LINE LENGTH 


0074 


0241 


5A 






5A 






DEC B 




LINE LENGTH - 1 


0075 


0242 


11 






11 






CBA 




CHECK FOR END OF LINE 


0076 


0243 


20 


OE 




20 R@SD 






BRA 


CRT011 


INCREMENT CURSOR POSITION 


0077 


















. 




0078 






















0079 












* 










0080 












* 


NORMAL ASCII CHARACTER 


0081 












* 










0082 


0245 


85 


EO 


SC 


85 DEO 


CRT010 


BIT A 


#$E0 


TEST FOR CONTROL CHARACTER 


0083 


0247 


27 


19 




27 R@TH 






BEQ 


CRT110 




0084 


0249 


A7 


00 




A7 DOO 






STA A 


0,X 


STORE THE CHARACTER 


0085 


024B 


08 






08 






INX 




NEXT CHARACTER POSITION 


0086 


024C 


7C 


0060 




7C E@N 






INC 


LNCNTR 


INCREMENT POSITION IN LINE 


0087 


024F 


96 


5C 




96 D@L 






LDA A 


LINSIZ 


CHECK FOR END OF LINE 


0088 


0251 


91 


60 




91 D@N 






CMP A 


LNCNTR 




0089 


0253 


26 


OC 


SD 


26 R@SE 


CRT011 


BNE 


CRT012 




0090 


0255 


DF 


1C 




DF D@C 






STX 


CSRPTR 


CURSOR IN SYNC W.TH LNCNTR 


0091 


0257 


86 


OD 


TB 


86 DOD 


CRT015 


LDA A 


#$0D 


PRINT CARRIAGE RETURN 


0092 


0259 


8D 


C3 




8D R@SA 






BSR 


CRTOUT 




0093 


025B 


86 


OA 




86 DOA 






LDA A 


#$0A 


PRINT LINE FEED 


0094 


025D 


8D 


BF 




8D R@SA 






BSR 


CRTOUT 




0095 


025F 


DE 


1C 




DE D@C 






LDX 


CSRFiR 


GET NEW CURSOR ADDRESS 


0096 


0261 


39 




SE 


39 


CRT012 


RTS 






0097 












* 








•• 


0098 












* 


OTHER CONTROL CHARACTERS 


0099 












* 










0100 


0262 


8A 


40 


TH 


8A D40 


CRT110 


ORA A 


#$40 


ADD LETTERS BIAS TO CONTROL 
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PROGRAM CRTOUT ASSEMBLY LISTING 



LINE ADDR OBJECT 



0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
01i5 
0116 
01i7 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 



0264 
0265 
0267 
0269 
026A 
026C 
026E 



026F 
0271 
0273 
0275 
0277 
0279 
027A 
027C 
027E 
0280 
0282 



0283 
0285 
0287 
0289 
028B 

028D 
028F 
0291 
0292 
0294 
0295 
0297 
0299 
029A 
029C 
029D 
029F 

02A1 
02A3 
02A4 
02A6 
02A7 
02A8 



36 

86 5E 
8D B5 
32 

8D B2 
DE 1C 
39 



81 OB 
26 10 
86 13 
C6 04 
8D A5 
5A 

26 FB 
86 OD 
8D 9E 
DE 1C 
39 



81 IB 
26 2E 
86 60 
8D 93 
20 CA 

97 66 
DF 84 
32 

97 86 
32 

97 87 
96 85 
36 

96 84 
36 

96 87 
20 OB 

97 66 
32 

97 86 
32 
30 
EE 00 



SPHERE 

36 

86 b5E 

8D R@SA 

32 

8D R@SA 

DE D@C 

39 



TC 81 DOB 
26 R@SQ 
86 D13 
C6 D04 

TD 8D R@SA 
5A 

26 R@TD 
86 DOD 
8D R@SA 
DE D@C 
39 



SQ 81 DIB 
26 R@SI 
86 D60 
8D R@SA 
20 R@TB 

RB 97 D@Q 
DF D84 
32 

97 D86 
32 

97 D87 
96 D85 
36 

96 D84 
36 

96 D87 
20 R@UJ 

RC 97 D@Q 
32 

97 D86 
32 

30 

EE DOO 



MOTOROLA 



SAVE CONVERTED CONTROL CHAR 
PRINT DP ARROW 



PSH A 

LDA A #$5E 

BSR CRTOUT 

PUL A 

BSR CRTOUT 

LDX CSRPTR GET CURSOR LOCATION 

RTS 



PRINT CONVERTED CONTROL CHAR 



* (VT) VERTICAL TAB 
* 

CRT080 CMP A #$0B 

BNE CRT070 

LDA A #$13 

LDA B #4 

CRT081 BSR CRTOUT 
DEC B 

BNE CRT081 

LDA A #$0D 

BSR CRTOUT 
LDX 
RTS 



CHECK FOR VERTICAL TAB 

GET DOWN ARROW CHARACTER 
4 LINE VERTICAL TAB 
PRINT VERTICAL TAB 

LOOP UNTIL DONE- 
PRINT CARRIAGE RETURN 



CSRPTR GET NEW CURSOR ADDRESS 



* (ESC) PRINT INT. CR, 



CRT070 CMP A 

BNE 



#$1B 
CRT030 



LDA A #$60 • 
BSR CRTOUT 



BRA 



CRT015 



PSHX 



STA A TEMPA 

STX TEMPX 

PUL A 

STA A TEMPX2 

PUL A 

STA A TEMPX3 

LDA A TEMPX1 

PSH A 

LDA A TEMPX 

PSH A 

LDA A TEMPX3 



BRA 



PULX1 



PULX STA A TEMPA 



PUL A 
STA A 
PUL A 
TSX 
LDX 



TEMPX2 



X 



CR, LF 

CHECK FOR ESC CHAR 

PRINT INTERNAL CR 

PRINT CR, LF 

SAVE A REGISTER 

STORE X FOR STACKING 

GET HIGH RETURN ADDR BYTE 

GET LOW RETURN ADDR BYTE 

GET LOW X REGISTER BYTE 

GET HIGH X REGISTER BYTE 

GET LOW RETURN ADDR BYTE 

SAVE A REGISTER 

GET HIGH RETURN ADDR BYTE 

GET LOW RETURN ADDR BYTE 

GET STACK POINTER IN X 

GET STACKED X REGISTER VALUE 
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PROGRAM CRTOUT ASSEMBLY LISTING 



LINE 


ADDR 


OBJECT 




SPHERE 


1 


40T0R0L 


A 


0151 


02AA 


31 






31 






INS 




0152 


02AB 


31 






31 






INS 




0153 


02AC 


36 




UJ 


36 




PULX1 


PSH A 




0154 


02AD 


96 


86 




96 


D86 




LDA A 


TEMPX2 


0155 


02AF 


36 






36 






PSH A 




0156 


02B0 


96 


66 




96 


D@Q 




LDA A 


TEMPA 


0157 


02B2 


39 






39 






RTS 




0158 




















0159 


. 02B3 


20 


90 


UH 


20 


R@SC 


CRT016 


BRA 


CRT010 


0160 




















0161 














* 






0162 














* (LF) 


LINE FEED 


0163 














* 






0164 


02B5 


81 


OA 


SI 


81 


DOA 


CRT030 


CMP A 


#$0A 


0165 


02B7 


26 


4C 




26 


R@SF 




BNE 


CRT020 


0166 


02B9 


D6 


60 




D6 D@N 




LDA B 


LNCNTR 


0167 


02BB 


37 






37 






PSH B 




0168 


02BC 


50 






50 






NEG B 




0169 


02BD 


DB 


5C 




DB D@L 




ADD B 


LINSIZ 


0170 


02BF 


08 




SJ 


08 




CRT031 


INX 




0171 


02C0 


5A 






5A 






DEC B 




0172 


02C1 


26 


FC 




26 


R@SJ 




BNE 


CRT031 


0173 


02C3 


9C 


5A 




9C 


D@K 




CPX 


CRTEND 


0174 


02C5 


26 


25 




26 


R@SL 




BNE 


CRT033 


0175 


02C7 


DE 


58 




DE D@J 




LDX 


CRTBEG 


0176 


02C9 


7D 


005E 




7D 


E@M 




TST 


SCRLFG 


0177 


02CC 


27 


IE 




27 


R@SL 




BEQ 


CRT033 


0178 














* 






0179 














* 






0180 


02CE 


DF 


84 


TR 


DF 


D84 


CRT32C 


STX. 


TEMPX 


0181 


02D0 


D6 


5C 




D6 


D@L 




LDA B 


LINSIZ 


0182 


02D2 


4F 






4F 






CLR A 




0183 


02D3 


DB 


85 




DB 


D85 




ADD B 


TEMfXl 


0184 


02D5 


99 


84 




99 


D84 




ADC A 


TEMPX 


0185 


02D7 


97 


86 




97 


D86 




STA A 


TEMPX2 


0186 


02D9 


D7 


87 




D7 


D87 




STA B 


TEMPX3 


0187 


02DB 


DE 


86 




DE 


D86 


- 


LDX 


TEMPX2 


0188 


02DD 


9C 


5A 




9C 


D@K 




CPX 


CRTEND 


0189 


02DF 


27 


09 




27 


R@SP 




BEQ 


CRT32D 


0190 


02E1 


A6 


00 




A6 


DOO 




LDA A 


0,X 


0191 


02E3 


DE 


84 




DE 


D84 




LDX 


TEMPX 


0192 


02E5 


A7 


00 




A7 


DOO 




STA A 


0,X 


0193 


02E7 


08 






08 






INX 




0194 


02E8 


20 


E4 




20 R@TR 




BRA 


CRT32C 


0195 


02EA 


DE 


84 


SP 


DE 


D84 


CRT32D 


LDX 


TEMPX 


0196 














* 






0197 


02EC 


DF 


84 


SL 


DF 


D84 


CRT033 


STX 


TEMPX 


0198 


02EE 


D6 


5C 




D6 D@L 




LDA B 


LINSIZ 


0199 


02F0 


86 


20 




86 


D20 




LDA A 


#$20 


0200 


02F2 


A7 


00 


SM 


A7 


DOO 


CRT034 


STA A 


0,X 



CLEAR X REG VALUE FROM STACK 

STACK LOW RETURN ADDR BYTE 
STACK HIGH RETURN ADDR BYTE 

RESTORE A REGISTER 



CHECK FOR LINE FEED CHAR 

GET POSITION IN LINE 
SAVE POSITION IN LINE 

SUBT IT FROM LINE LENGTH 
INCREMENT TO END OF LINE 



CHECK FOR SCREEN END 



BRANCH IF WRAP AROUND 



SAVE CURRENT MOVE TO LOC 
GET LINE LENGTH 
CLEAR UPPER LINE LENGTH BYTE 
ADD LINE LENGTH TO MOVE LOC 

SAVE MOVE FROM LOC 

GET MOVE FROM LOC 
CHECK FOR LAST MOVE LOC 

GET BYTE TO MOVE 
RESTORE MOVE TO LOC 
MOVE CHAR ONE LINE BACK 
NEXT LOCATION TO MOVE 

GET MOVE TO LOC 

SAVE CURSOR LOCATION 

GET LINE LENGTH 

GET SPACE FOR BLANKING 

BLANK CURRENT SCREEN POSITION 
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LINE ADDR OBJECT 



0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 



02F4 08 

02F5 5A 

02F6 26 FA 

02F8 DE 84 

02FA 33 

02FB 5D 

02FC 27 04 

02FE 08 

02FF 5A 

0300 26 FC 

0302 39 

0303 20 AE 



0305 
0307 
0309 
030C 
030E 
030F 
0312 
0314 



0315 
0317 
0319 
031B 
031C 
031E 
0320 
0322 
0323 
0325 



0328 
032A 
032C 
032E 
0330 
0331 
0333 



81 OD 

26 OC 
7D 0060 

27 06 
09 

7A 0060 
26 FA 
39 



81 13 
26 OF 
D6 5C 
08 

9C 5A 
26 02 
DE 58 
5A 

26 F6 
39 



0326 20 DB 



81 18 
26 OC 
86 20 
A7 00 
08 

9C 5A 
26 F9 



PROGRAM CRTOUT ASSEMBLY LISTING 



SPHERE 

08 
5A 

26 R@SM 
DE D84 

33 
5D 

27 R@S0 
SN 08 

5A 

26 R@SN 
SO 39 

TO 20 R@UH 



SF 81 DOD 

26 R@SR 
7D E@N 

27 R@SH 
SG 09 

7A E@N 
26 R@SG 
SH 39 



SR 81 D13 
26 R@SY 
D6 D@L 

SS 08 

9C D@K 
26 R@ST 
DE D@J 

ST 5A 

26 R@SS 
39 

UC 20 R(§UD 



MOTOROLA 



INX 
DEC B 
BNE 
LDX 

PUL B 
TST B 
BEQ 

CRT035 INX 

DEC B 
BNE 

CRT036 RTS 



NEXT SCREEN POSITION 

CRT034 LOOP UNTIL LINE BLANKED 
TEMPX RESTORE CURSOR LOCATION 



RESTORE ORIGINAL POS IN LINE 
QUIT IF AT START OF LINE 



CRT036 



NEXT POSITION IN LINE 
CRT035 LOOP UNTIL ORIGINAL POS IN LINE 



CRT014 
* 

* (CR) 
CRT020 



CRT021 



CRT022 
* (DC3) 
CRT037 



BRA CRT016 
CARRIAGE RETURN 

CMP A #$0D 
BNE CRT037 



TST 
BEQ 
DEX 
DEC 
BNE 
RTS 



LNCNTR 
CRT022 

LNCNTR 
CRT021 



DOWN ONE LINE 



CRT038 



CRT039 



CMP A 

BNE 

LDA B 

INX 

CPX 

BNE 

LDX 

DEC B 

BNE 

RTS 



#$13 

CRT050 

LINSIZ 

CRTEND 
CRT039 
CRTBEG 

CRT038 



CHECK FOR CARRIAGE RETURN 

CHECK ALREADY AT LINE START 

BACKSPACE ONE LINE CHAR 
DECREMENT POSITION ON LINE 
LOOP UNTIL START OF LINE 



CHECK FOR DC 3 

GET LINE LENGTH 
NEXT LINE POSITION 
CHECK FOR SCREEN BOTTOM 

CYCLE TO TOP, IF BOTTOM 
LOOP FOR LINE LENGTH 



CRT013 BRA CRT014 

* 

* (CLEAR) CLEAR SCREEN 
CRT050 



SY 81 D18 CRT050 CMP A #$18 

26 R@TA BNE CRT060 

86 D20 LDA A #$20 

SZ A7 D00 CRT051 STA A OX 

08 INX 

9C D@K CPX CRTEND 

26 R@SZ BNE CRT051 
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CHECK FOR CLEAR CHAR 

SPACE FOR CLEARING SCREEN 
STORE SPACE AT SCREEN POSITION 
NEXT POSITION 
CHECK FOR END OF SCREEN 



tf 



PROGRAM CRTOUT ASSEMBLY LISTING 



LINE ADDR OBJECT 



0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 



0335 DE 1C 
0337 39 



0338 81 OC 

033A 26 06 

033C DE 58 

033E 7F 0060 

0341 39 



0342 
0344 
0346 
0348 
034A 
034C 
034E 
034F 
0350 
0352 



0362 
0364 
0366 
0367 
036A 
036C 
036E 
0370 
0373 
0375 



81 11 
26 OD 
D6 5C 
9C 58 
26 02 
OE 5A 
09 
5A 

26 F6 
39 



0353 81 IE 

0355 26 03 

0357 97 5E 

0359 39 



035A 81 IF 

035C 26 04 

035E 7F 005E 

0361 39 



81 12 
26 14 
08 

7C 0060 
96 5C 
91 60 
26 09 
7F 0060 
9C 5A 
26 02 



SPHERE 

DE D@C 
39 



TA 81 DOC 
26 R@TE 
DE D@J 
7F E@N 
39 



TE 81 Dll 
26 R@TI 
D6 D@L 

TF 9C D@J 
26 R@TG 
DE D@K 

TG 09 
5A 

26 R@TF 
39 



TI 81 DIE 
26 R@TJ 
97 D@M 
39 



TJ 81 D1F 
26 R@TK 
7F E@M 
39 



TK 81 D12 
26 R@TN 
08 

7C E@N 
96 D@L 
91 D@N 
26 R@TL 
7F E@N 
9C D@K 
26 R@TL 



MOTOROLA 

LDX 
RTS 



CSRPTR GET CURSOR LOCATION 



* (HOME) HOME CURSOR 
* 

CRT061 CMP A #$0C 

BNE CRT100 

LDX CRTBEG 

CLR LNCNTR 
RTS 

* 

* (DC1) UP ONE LINE 



CHECK FOR HOME CHAR 

GET SCREEN START LOCATION 
POSITION COUNTER AT LINE START 



CHECK FOR DC1 CHAR 



GET LINE LENGTH 
CHECK FOR SCREEN TOP 

CYCLE TO SCREEN BOTTOM, IF TOP 
BACK ONE CHAR POSITION 
DECREMENT POSITION COUNTER 



CRT100 CMP A #$11 

BNE CRT120 

LDA B LINSIZ 

CRT101 CPX CRTBEG 

BNE CRT102 

LDX CRTEND 
CRT102 DEX 

DEC B 

BNE CRT101 

RTS 
* 

* (RS) SET OPTION TO SCROLL 
* 

CRT120 CMP A #$1E CHECK FOR RS CHARACTER 

BNE CRT130 

STA A SCRLFG 

RTS 
* 

* (VS) SET OPTION TO WRAP AROUND 
* 

CRT130 CMP A #$1F CHECK FOR VS CHARACTER 

BNE CRT140 

CLR SCRLFG CLEAR SCROLL FLAG 

RTS 
* 

* (DC2) RIGHT ONE CHARACTER 



CRT140 CMP A 
BNE 
INX 
INC 
LDA A 
CMP A 
BNE 
CLR 
CPX 
BNE 



#$12 • 
CRT045 

LNCNTR 
LINSIZ 
LNCNTR 
CRT141 
LNCNTR 
CRTEND 
CRT141 



CHECK FOR DC 2 CHARACTER 

INCREMENT CURSOR POSITION 
INCREMENT LINE POSITION 
GET LINE LENGTH 
CHECK FOR LINE END 

SET TO LINE POSITION (START) 
CHECK FOR END OF SCREEN 



COLUMN 12 3 4 5 6 7 
123456789012345678901234567890123456789012345678901234567890123456789012 
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PROGRAM CRTOUT ASSEMBLY LISTING 



LINE ADDR OBJECT 



SPHERE 



MOTOROLA 



0301 


0377 


DE 


58 




DE D@J 


0302 


0379 


39 




TL 


39 


0303 












0304 












0305 












0306 












0307 


037A 


81 


7F 


TN 


81 D7F 


0308 












0309 


037C 


27 


A8 




27 R@UC 


0310 












0311 












0312 


037E 


81 


08 




81 D08 


0313 


0380 


26 


07 




26 R@SV 


0314 


0382 


8D 


09 


SU 


8D R@TM 


0315 


0384 


86 


20 




86 D20 


0316 


0386 


A7 


00 




A7 D00 


0317 


0388 


39 






39 


0318 












0319 






• 






0320 












0321 


0389 


81 


14 


SV 


81 D14 


0322 


038B 


26 


99 




26 R@UC 


0323 


038D 


9C 


58 


TM 


9C D@J 


0324 


038F 


26 


02 




26 R@SW 


0325 


0391 


DE 


5A 




DE D@K 


0326 


0393 


96 


60 


SW 


96 DON 


0327 


0395 


26 


04 




26 R@SX 


0328 


0397 


96 


5C 




96 D@L 


0329 


0399 


97 


60 




97 D@N 


0330 


039B 


7A 


0060 


SX 


7A E@N 


0331 


039E 


09 






09 


0332 


039F 


39 




PA 


39 


0333 












0334 








EN] 


D 



LDX CRTBEG CYCLE TO START, IF AT END 

CRT141 RTS 
* 

* (DEL) BACKSPACE AND DELETE (NORMALLY USES CRT040) 

* (BS) BACKSPACE AND DELETE 
* 

CRT045 CMP A #$7F TEST FOR DEL 

* USE FOLLOWING INSTRUCTION TO TREAT DEL AS REGULAR CHAR 

BEQ CRT013 

* USE FOLLOWING INSTRUCTION TO TREAT DEL AS BACKSPACE 

* BEQ CRT040 

CMP A #$08 TEST FOR BACKSPACE 

BNE CRT041 

CRT040 BSR CRT044 BACK UP ONE CHARACTER 

LDA A #$20 BLANK OUT CURRENT CHARACTER 

STA A 0,X 

RTS 

* (DC4) BACK UP ONE CHARACTER 

CRT041 CMP A #$14 CHECK FOR BACK ONE CHARACTER 

BNE CRT013 

CRT044 CPX CRTBEG CHECK FOR START OF SCREEN 

BNE CRT042 

LDX CRTEND USE END OF SCREEN IF AT START, 

CRT042 LDA A LNCNTR CHECK FOR START OF LINE 

BNE CRT043 

LDA A LINSIZ RESTART AT END OF LINE 

STA A LNCNTR 

CRT043 DEC LNCNTR DECREMENT POSITION ON LINE 

DEX 
CRTEX RTS 



END 



COLUMN 1 2.3 4 5 6 7 
123456789012345678901234567890123456789012345678901234567890123456789012 
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SUBSET OF ASCII to PACKED BASE 40 and Back 

Two complementary programs which follow are based on an algorithm 
which was written uv in INTERFACE AGE magazine OCT, 1980, PP. 80-84 
by David Veldof. The idea is to select a subset of Ascii code, in 
this case including cavital letters, numbers zero thru nine, and four 
other characters (space, $, period and minus sign). The Asciv, three 
bytes at a time, is packed into 16 bit words (see figure 1) giving a 
true 50% 3aving3 in storage space and possibly shortening I/O time 
especially If a slow peripheral device Is used. I am currently U3lng 
these routines to store 192 bytes of data In each disk sector which 
usually carries 128 bytes. 

' The most Involved part of the programs Is the handling of the Asctl 
in the event that the number of bytes is not exactly divisible by three. 
Also, the routines have been written to search for an end character (* 
which Is Hex 2A ) so a3 to allow any lenth Ascll file to be handled. 

When less than three byte3 remain to be converted, the one or two 
are just converted to base. 40 but passed thru unpacked. Also, the first 
byte, If there are two left over, Is complemented. These changes of 
format allow the unpacking program to know that the last few bytes 
before the end character must be unpacked differently. The complement 
was done so that no combination of two base 40 bytes could exist with 
the same value as some packed 16 bit combination. 

There are many possible changes which can customize these routines. 
One could, easily substitute characters for the four miscellaneous ones. 
The dollar sign can usually be part of the application program Instead 
of being stored In the data file. The comma might thus be substituted 
for the $. Of course, the choice of end character Is up to the user; 
just let the program take this from ram Instead of loading It Immediate. 
Each application could specify the end character in that way. Fig. 4 
shows an alternate scheme of allocating the base 40 character set but 
this "CAN COM" only get8 39 characters Instead of 40 because It uses 
zero differently. My version, by using zero for a space, makes some 
use of the 40th position. 

The Base 40 to Ascll program calls the DIVIDE routine which 3its 
in the V3N and mo3t other proms which our users have. If it' is no 
longer available to you In prom, just tack It at the end of the 16 
bits to Asctl module. 

Now to try the programs out! 

Set up any areas for buffer 1 and 2 when you type In the programs. 

A- place Into buffer 2 00 temp 

53 S 

50 P 

i i \ 48 H 

t le^O 45 E 

fi\<~i i r " 52 J! 

2A end of file 

B-do 0200 control J 

C-ftnd the packed code In buffer 1 t 79 48 22 15 2A 



9Z- 



D- leave the packed code (or save it to tape or dl3k for later retrieval J 

E- load the packed base 40 to Asoii -r^^-r^^ 

F- do 200 control J NOTE THAT EITHER PROGRAM MAY BE LOADED ANYWHERE 

IN RAM OR ROM BECAUSE RELATIVE ADDRESSING IS USED, 

G_ You should find the original A3cii code back in buffer 2, 

Special note: It should be possible to pass a larger number of charac- 
ters than the 40 if this is needed. Only 40 different 
ones will be packed but some infrequently U3ed but very 
necessary characters could be encoded and passed thru 
imbedded in the packed code. The unpacking program would 
have to be similarly modified to test for these characters. 
It should be possible, but probably not really necessary, 
to have an extended version of these routines which would 
handle the entire Ascii character set but only pack the 
forty most commonly used characters, Thi3 would slightly 
reduce the density of the packed code while removing the 
1 imitations. 

Please let me know if you find these routines useful. 
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/H- 



■c.< 



l\ ^ 



\U\;> T 



■^ 'c \ ^ 



\j-'<- 



M- ° 



The following section summarizes the steps 
necessary to pack Base 40 characters three to a word. 
1 Take the Base 40 character H and shift it three 
places to the left (multiply it by 8) and save this par- 
tial result. 

2. Shift H two more places to the left (multiply it by 32) 
and add the saved partial result (equivalent to 
H*40). Save this as the sum. 

3. Take M and add it to the sum (from step 2). Shift 
this quantity over three places to the left (multiply 
by 8i and save the partial result. Shift the quantity 
two more places to the left (multiply by 32) and add 
the partial result to it (M*40). Save this in sum. 

4. Take the sum and add L to it. This gives you three 
packed Base 40 characters in one word. 

5. Repeat the whole procedure from step 1 for the 
next group of three Base 40 characters. 



lei ---jur >"- - 4 



f'V 



mm*** - 



40 Ctt*r«et»e Set 










44 equivalent 

; \o,-'. 

f -26 

'"'• .'27 

28 

29 

30 - 39 



normally rapraswitxl 



J 



u 



(r t, L {•> '^ 



To summarize the steps necessary 
to unpack Base 40 characters: 

1 . Divide the packed characters (HML) by 40 2 . The 
quotient will be the unpacked high order. 

2. Divide the remainder (from step 1) by 40. The 
quotient will be the unpacked middle character and 
the remainder will be the unpacked lower-order 
character. 

We have now shown how to pack and unpack Ascii 
characters, assuming they are already expressed in 
their Base 40 equivalents. But how do we get them in 
their Base 40 equivalents? 



f l V 



~X 



codo conversion 



ax cm 


ux cm 


ux eta 











MS * 


t» 4 


1 4 


CM 1 


SO 1 


2 • 


iteo c 


7* C 


3 C 


1M0 D 


40 o 


4 


wo ( 


ct f 


9 ■ 


!580 r 


ro r 


t r 


mm* o 


ut c 


7 e 


zBCO 
Two ■ 


140 E 


• B 


3M0 I 


1U 1 


• 1 


JIM J 


190 J 


4 J 


uco X 


1M I 


> t 


4KM I 


110 I 


C I 


9140 X 


200 II 


II 


3710 ■ 


230 I 


( 11 


5DC0 


lit 


r o 


two r 


210 T 


10 r 


4440 5 


Ut Q 


11 Q 


70«0 It 


200 > 


12 1 


76CO S 


zn s 


13 S 


7100 T 


320 T 


14 T 


IMO 


341 


19 


MM V 


370 » 


14 » 


sreo V 


JM H 


17 « 


MOO I 


300 'X 


It X 


«4fl t 


311 T 


l» t 


UN i 


410 2 


14 I 


uco o 


43* 


11 


»*» l 


4M 1 


1C 1 


IMO 2 


400 2 


ID 2 


UK> ] 


4*0 } 


11 3 


C1CO 4 


4M 4 


It 4 


C*M 5 


500 S 


20 9 


OMO « 


920 * 


21 4 


MM 7 


990 7 


22 7 


MCO • 


971 t 


23 ( 


tioo « 


940 » 


24 » 


17*0 .' 


9Ci : 


29 : 


BOO . 


310 . 


24 . 


net • 


*1» * 


27 • 



"X. 






■ t .i ■■•-■ .<■ 



M V 



It G.Ts PAc^eO^OASi* fo To 



;203 CF < 



v. vii i.' !" 



O20E A* 
3210 11 



0215 C7 

A ^ •* 7 "7 ."S 

V s. X r *.r 7 

0218 A6 
021A it 

02iB 26 
021B A6 

OB 

be 

A 1«7 A '-/ 
«i.i.J l-t ' 

0225 E7 

0228 A6 
022A 11 
022B 26 



0231 23 
0233 A6 

0235 43 

0236 SB 
023S BE 

All* A 7 

viOH n.- 

023C BE 
023E A 6 
0240 GD 



LBX #2000 

- T '-.I' TT A 

...; ! A ^i K J 

Ll'A AX 

i • i? A 

IMir ACT. 

STABX00 

RTS 

LBAAX01 

,"■■ r< a 

U i ■' ** 

BWE 0B 
frtAAXOO 

Vt .-> r> ." A 

ii.ih ov 
•_ .'..' A -i «f. 

/-. '7 a a v a A 

U ! - «H«V v 1 

STABX0! 

RTS 
L.BAAX02 

CBA 

BHE 1.C 
LBAAX00 

,-n « i-, a ,li. f ;• A 

ijlli i-Wl n 

BLS 16 
LBAAX00 

COHA 

LBX 52 
ST A AX 00 
LDX 50 

* rv jl a "4/ A -i 
«_ t.'iri^ A V .'• 

BSR 3F 



\ 



On i 1 a "? 

ill l-l*. 

0246 er 

024S 39 

0249 S6 

0243 97 

a t*. 4 ?, n .■ 



\? .i. *>£ M O 

0256 8 

0257 DF 

025L BE 
025F A7 



0265 B7 
0267 B6 



02 AC SB 
026il G3 
0270 BE 



0274 76 
0276 3D 
0270 A 7 
027 A 8 
0273 03 
027C 08 
027T5 DF 



STAtfXC: 

RTS 

i T, A A Jt A L 

l-i'rti-iTfvQ 



LEABX00 

L iHrtAV J. 
i fi X 

XNX 






1 a ''* 
02:1.8 



0228 
0281. 



3TX 



L.UA J»i 

r-TA A *•> A ;> 

5s t hMAyy 

LB A A v / 
LBAB*2S ( 

STAB 07 

Lyt-ir Oft 

CLR 00 06 

DOR 46 

3SS .1. 1 

LBX 52 

»"* T A A 'J A -I 
*'.> 1 »nHAv .j. 

LBAA 07 

bsh: 0? 

•■.; 'i* .- a v >-- -5 

^J 1 ri H .«. v ^ 



...:iJ 



02-4? 
024? 
0231 

0281 



02B4 
0231 



'"t ■' T i. 
V *£ Xj ■▼ 



X * v>^( 






. .■ ■ \ 






&>L 



AScii 



U-r> 



02S3 

0285 

0206 

0288 

02SA 

023C 

028E 

0290 

0292 

0294 

0296 

029S 

02?A 

029C 

029E 

02 A3 

02A2 

02A4 

02A6 

02 AS 

02AA 

02AC 

02AE 

02BO 

02B3 

02B4 



81 

2E 
43 

.~\ ,1 

36 
20 
31 
2.6 

G6 



81 

26 

86 

20 

31 

26 

86 

20 

81 

2E 

SB 

20 

SB 

20 

/ fc. 

3? 



T.r -r ~: a 

T3TA 
SHE 04 

I Tj A ,x J(. -*n A 

&.\n *-^ 

CHPA#XB 
BNE 04 

I 7*1 A A Jf '"> .•* 

V '« A ■* IT 

Jt.WVH ii 

CMPA*1C 
3NE 04 
LBAAS2E 

T'~t <■■ ■* "7 

.L'ft !-i i ■■• 

C«PA#1D 
BNE 04 
LBAA#2D 
BRA OF 
CiiPA*lB 
BGT 04 
ABDA440 



BRA v/ 

ABBA* 12 

BRA 

.J HP 

RTS 

JMP FFA 





02B0 




02 SC 




02B3 


* 


0294 
02B3 




029C 


+ 


A 1 T> 7 




02A4 


— 






02B3 


~ 


02AC 




02B3 



f%& 9eJ' 



02B3 



K> 1 jl 1 L 



» ^. 



" - -.^ . ■■*■*'—' ~s 



^_L^_L^E1 



•> ■> 



II 



/T 



T^T 



< 



r*f5.A 



BRA 



3 OyT 



e* A*'» 




."l ~> <-. ?■ 



All* 

v*.u, 

A •-» * T 

321? 

0--i< n 
iii' 



jar 

A 6 

Si 
26 
BE 

IT/' 



: Li)? 
SIX 

i_. s/ a ■* i. v r i 

.six. c - 



£r VvV 4 



"LBAAXO 1 
CiiF'A#2A 

j>i> si V •-» 

LDX 55 
ST A AX 00 
FT 5 



at r-T .*- A v A •' 

fi; b 1 i-tHrtV .i. 

A .- T ti A /•- V A *"t 

Hi! i.. A'ri l->/». *»-.<•- 

^ -t t ~> "--»' ~i A ~u "1 A 

<-i A ':.«'! i" H •».»•- •"» 

-•-5 / -niir- a q 



Til- 



1?*JT F 



022A 



0230 
0232 
0234 
0236 

0- .-IT il 
CJU 

0239 
023B 
023E 
023F 
0241 
0242 



0246 
0248 

A --V T- A 

024B 



One* 



- i 
A "7 



GD 

A7 



01 



BE 



A T 

n > 

"7 n 

O L' 

„ A ~ 
1-1/ 

.1". 



5F 
AB 
E7 

r-T 
I.-/ 

A7 



0255 


no 


0257 


5F 


0258 


AB 




c o 


C. 7 




BE 




E7 




A7 


V t-UV 


A n / n 


OS 


0263 


03 


02i4 




a*-w ; 


—i >"• 


V iUlJ 


A.-U 


a n / n 


/ r- 


ViUU 


Ut 




or; 




A H 


V^ott 


vu 


Art rr 


A 


vtuu 


V O 


Art^f; 


-1.1 



fl 1 .' 



.-. -r ,\ V, W A A 

*.* * !"• A.' ** V V 

GTAAX01 

S>T3 

jU'Otv •+<-> 

,-T A AVA n 

*j I TaV .<-.. 
1 r- A AVA T 

1.JPHAVJ 

1,11! Hir.-„t-t 
riilt— •: A 

utt «.- i v 

1 T(Am v.* a -J 
Llii-ijCAv 1 
t n A A V A •"*" 

i_ v A n.-wi 

I -; V C A 

Lei jv 
rt r> ;j 7'r 

LiUt'l *.' 

r» T A T> V- A A 

iJ t ;-il< AV V 

STAAXOi 
LBAAS2A 

RIG 
BSR 2B 

aTftA Jwo 



■-•t ?-. ft ■ 
ui_f\ h 

*riri a v.-i <** 
tiiJ.Uft/w i 

An/*- tiv-.a a 

.— -t ••■ r*'--' a a 
a i i-t«.>/v«-v' 

r^T" A A v A -J 

; ri A A Vi» A •{ 

1-JfPiMilU J. 

CLRB 



ADCBX00 

1 n%/ jta 

r«T v r»vA a 
O t ;-? a.< y\ v v 

,"T A /- \j* A ■* 

1A 



IKX 
STX 
LDX 

CLR 

:£NX 

IMX 

J.** A 
V O A 



50 

rr ■-. 

X03 



99 



V *i LJ * 



0242 



A •*"» A --* 



02A2 



Ik fti'TS W« ^* 



0271 
0273 

A->T J 

.c/ u 



Vi./ n 

OiTr 

»i/ l- 

A IrtA 



0284 



'i .■: 

4F 



o i 



r.*-r~ .•; •■. 

.— r r ( a 

CHFA#24 
BNi: 02 

i n a a .s- •; r* 
i-iii-tt-i-tf a ~> 



,-M 

26 

."! / 
OU 

■I) 

t~\ \ 
*J J. 

2E 
GO 
20 



I ft A A Jl. -j f 1 

nu r» a .a. ^^ ^ 
if-iur* A'-' 



c^F-a=*40 

V":t <^ A^S 

BUG. V'.J 

CWf*i ''» -ii.n:-/* 
I'll - MTTviH 

r*- t ; rt a .:■■ v a 



or 



0296 

0298 
029 A 
029C 
029C 

02A1 



2E 

GO 



H>jri a y.*-< ;r" 
Ulif j-t-iri. i 

T5J (7 i' 1 "l 

rwc A -ll.-rrj 
Ul'n 1-! -fl'.-' / 

BGT 04 

r*.srr.' A JF- •» ^ 
, JO V l-I *" ■'- i. 



oa >tn a 



c &■* 



02A4 

02A6 
02A8 
02AA 
02 AC 
02AE 
02S5 
02B2 
02D4 
02B6 
02D3 



02BE 



A6 LBAAXO 



IB 



A 6 
97 
SD 
GD 
A6 
i_6 
?E 

:o? 

A7 

C7 



I Tl A 



Bsr 



axo:l 

a a -r 



oi :r 



LBAAXO 1 
LSABXOO 



02C3 

m 

Mil/ 

02C7 



A6 

3^f 



ABB 
ABC 

ST A, 

ST A 
RTS 

At"^t 
JIO I... 

lBA 



AX0I 
BXOO 

Xfi ■[ 
AX00 

,-A './ A A 
f "! A V -v 
A V A A 



0280 



02 



02 A 1 
029E 
029E 

*£ M .1. 

r .-■■ 



V> c 1- 



\l 



.^.u 



A"jr j 
yi -c *-• J. 

A If! 
V .c. w J. 



02C" 



^ 



i 



^ i "> 



1A 



3: 



A -' '■■ 



i I 



t -.''■ 
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Simple circuit aoici software replace 

PHWJ1 programmer for 6804M>ased systems 



In the development of software for microprocessor- 
based systems; debugged, software must often be 
transferred to PROM for later use in the system. It 
is preferable to write in the system's PROM directly 
from the system's RAM, instead of copying down the 
contents of the RAM and then writing them into an 
external PROM with a PROM programmer. The ad- 
vantages of direct transfer are realized easily with just 
two transistors, a flip-flop and a few resistors, which 
connect a 2708/2704 PROM to the peripheral interface 
adapter (PIA) used in systems based on the 6800. The 
required programming can reside in the system 
monitor or in any other areas designated by the user. 

The resident software (see listing) presents the 
address, data bits and the program pulse to the PROM 
through a 6820 PIA. Programming waveforms are 
created exactly as recommended by the PROM manu- 
facturer. After the address and data are set up, one 
program pulse per address is applied to the PROM's 
program input (pin 18). One scan through all addresses 
constitutes a program loop. One hundred program 
loops are required as per the manufacturer's datasheet. 

Before executing the program, the user must supply 
the starting address of the data source (RAM) and 
the starting and ending address where data are to be 
written (PROM), and must account for the data 
invert/normal option. The program terminates with 
an RTS instruction, which returns control to the 
monitor. 

Transistors Ti and T 2 (see schematic) amplify the 
program pulse transmitted by the 6800 to a 26-V level 
for the 2708/2704 PROM. The 7474 flip-flop expands 
the word length of port A and provides ten address 
bits simultaneously to the PROM. Data bits are 
presented to the PROM through Port B of the PIA. 
CA» and CB 2 of the PIA are defined as outputs: CA* 
supplies the program pulse, and CB 2 provides the flip- 
flop clock pulse. 

The cost for all the additional hardware is about 
$3 — a negligible amount when compared to the cost 
of a microprocessor development system. The circuit 
and software have been tested only with a 6800 



microprocessor system and a 2708/2704 PROM. How- 
ever, any PROM should be programmable using this 
technique, if appropriate changes are made in the 
hardware and software. 

Victor Mathew and James Thomas, R&D Engineers, 
OEN India Ltd., Vyttila, P.B. No. 2, Cochin-682 019 
Kerala, India. 
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CA2 OF PIA 



O CB2 OF PIA 



With only a few components, the 2704/2708 PROM 
connects to a 6800-system's peripheral interface 
adapter (PIA) for direct software transfer. The "A 
side" of the PI A (and the flip-flop) outputs address 
bits; the "B side" outputs data. 
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0001 




* PIA I 


0002 








0003 


1000 


4F 




0004 


1001 


97 


CO 


0005 


1003 


86 


FF 


0006 


1005 


97 


80 


0007 


1007 


86 


04 


0008 


1009 


97 


CO 


0009 


100B 


4F 




0010 


100C 


97 


CI 


0011 


100E 


86 


FF 


0012 


1010 


97 


81 


0013 


1012 


86 


04 


0014 


1014 


97 


CI 


0015 








0016 




* MAIN 


0017 


1016 


5F 




0018 


1017 


DE 


00 


0019 


1019 


DF 


07 


0020 


101B 


DE 


02 


0021 


101D 


DF 


09 


0022 


101F 


96 


09 


0023 


1021 


97 


80 


0024 


1023 


86 


3C 


0025 ' 


1025 


97 


CI 


0026 


1027 


8D 


35 


0027 


1029 


86 


34. 


0028 


102E 


97 


CI 


0029 


102D 


96 


OA 


0030 


102F 


97 


80 


0031 


1031 


DE 


07 


0032 


1033 


A6 


00 


0033 


1035 


7D 


0006 


0034 


1038 


27 


01 


0035 


103ft 


43 




0036 


103E 


97 


81 


0037 


103D 


8D 


IF 


0038 


103F 


86 


3C 


0039 


1041 


97 


CO 


0040 


1043 


8D 


26 


0041 


1045 


86 


34 


0042 


1047 


97 


CO 


0043 


1049 


8D 


13 


0044 


104B 


08 




0045 


104C 


DF 


07 


0046 


104E 


DE 


09 


0047 


1050 


03 




0048 


1051 


DF 


09 


0049 


1053 


09 




0050 


1054 


9C 


04 


0051 


1056 


26 


C7 


0052 


1058 


5C 




0053 


1059 


CI 


64 


0054 


105B 


26 


BA 


0055 


105D 


39 




0056 








0057 




*250 MI 


0058 


105E 


7F 


OOOB 


005S 


1061 


7C 


OOOB 


0060 


1064 


96 


OP 


0061 


1066 


81 


OF 


0062 


1068 


26 


F7 


0063 


106ft 


39 




0064 








0065 




*1 


MILL 


0066 


106B 


7F 


OOOB 


0067 


106E 


7C 


OOOB 


0068 


1071 


96 


OB 


0069 


1073 


81 


40 


0070 


1075 


26 


F7 


0071 


1077 


39 





LCCP2 



LCCP1 



NORM 



CLP 

STA 

LDA 

STA 

LDA 

STA 

CLR A 

STA A 

LDft 

STA 

LDA 

STA 



A 
ft 
ft 
A 
A 
A 



ft 
ft 
A 
A 



CLF B 

LDX 

STX 

LDX 

STX 

LDA 

STA 

LDA 

STA 

BSP 

LDA 

STA 

LDA 

STA 

LDX 

LDA 

TST 

BFC 

COM 

STA 

BSP 

LDA 

STA 

BSP 

LDA 

STA 

BSP 

INX 

STX 

LCX 

INX 

STX 

DEX 

CPX 

BNE- 

INC B 

CMP B 

PNE 

RTS 



A 
A 
ft 
ft 

ft 
A 
A 
A 



NORM 



LCOP1 



LCCP2 



:DEFINE ft AND B SIDE CF PIA ft? OUTPUT 

CONTPCL PCPT ft SIDF=00C0 
CCNTFCL PORT ? ?IDE=00C1 
OUTPUT FOFT A SIDE=0080 
OUTPUT PCPT F. SIDE=0Q81 



:LCOP COUNTER INITIALISE 
:RAM START ADDR. AT 0000/0001 
: PRESENT RAM ADDR. STORED 
:PRCM START APDR. AT 0002/0003 
:FPCM FPEFENT ftCCK.STCPED 
:OUTPUT EIGH BYTE ADDR.CF FPCM 



:CB2 PULSF CCES HIGH 

:250 MICROSECOND DELAY SUPROUTINE 

:CE2 PULSE GOES LOK 

•CUTPUT LOW BYTE ADDP.OF PBCM 

:RAM START ADDR. 

:TEST ADDR. 0006 FOR DATA-NORMftL/INVERT 
:CATft NORMAL 
:DATA INVFRT 

:250 MICPCSECCNP DELAY SUBROUTINE 
:CA2 FULSE GOES HIGH 

:1MILLISEC0ND DELftY SUBROUTINE 
:CA2 PULSE GOES LOW 

:250 MICROSFCCND DELAY SUBFCUTINE 
: INCREMENT EAM ADDR. 



: INCREMENT PCM ADDR. 



:CHFCK FOP PPOM ADDR. AT 0004/0005 

:CEECK FOR LCCP END 

: INCREMENT LOOP COUNTER 

: CHECK FCR 100 LOOPS 



*250 MICROSECOND DFLAY SUPPCUTINE* 



LOCP3 



CLP 
INC 
LEA A 
CMP A 
BNE 
RTS 



: INITIALISE COUNTER FCF DELAY 



LCOP3 



*1 MILLISECOND DELftY SUBROUTINE* 
CLP 
LCOP4 INC 

LDA A 

CMP ft. 

BNF LCOP4 

RTS 

The programming required for direct transfer of 
debugged software from RAM to PROM can reside 



tINITIALISECCUNTER FOR DELftY 



in the system monitor or in any other areas 
designated by the user. 
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Adapting the M68C0 processor 
for automatic telephone dialing 

by Moshe Bram 

Allied Chemical Corp., Automotive Products Division, Mount Clemens, Mich. 



A short program and a simple interface for a rotary-dial 
telephone enables the well-known M6800 microproces- 
sor to dial stored telephone numbers on command. The 
versatile microprocessor thus becomes a viable alterna- 



tive to commercial automatic dialers, which essentially 
perform only one function and are expensive— chiefly 
because they arc in great demand. 

The program for the M6800 is divided into two 
sections, as shown in the table. The phone numbers are 
stored in the lower locations of memory, the dialing 
subroutine in the upper sections. The only limit to the 
number of phone numbers that can be stored is the 
amount of memory available to the system. The opera- 
tion of the entire program is explained by the comments 
column of the table. 

To access any number, the user (or a subroutine) 
simply initiates the program at, or routes the program to, 
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Location 



0000 

0002 

0005 

0007 

000A 

000C 

000F 

0011 

0014 

0016 

0019 

0018 

001 E 

0020 

0023 



01 C8 
01CA 
01CD 
01 DO 
0103 
0106 
0T08- 



0108 

010E 

01E1 

01E2 

01 E4 

01E5 

01E8 

01EA 

01 EC 

01EE 

01EF 

01F1 

01F4 

01F6 

01F9 

01FA 

01 FC 

01FO 

01FF 



Object coda 



C6 XI 
80 01C8' 
C6 X2 
BO 01C8 
C6 X3 
BO 01 C8 
C6 X4 
BO 01 C8 
C6 X5 
BD 01C8 
C6 X6 
BO 01 C8 
C6 X7 
BO 01 C8 
3F 



86 FF 
B7 8004 
B7 8005 
B78006 
~B7 8007 

86 01 

B7 8006" 

87 8004 
CE 18FF 
09 

26 FO 
4F 

87 8004 
CE 18FF 
09 

26 FD 
SA 

26 E5 
87 8006 
C6 02 
CE FFFF 
09 

26 FD 
5A 

26 F7 
39 



Source statement 


LDA8 


XI 


JSR 


01 C8 


LOAB 


X2 


JSR 


01 C8 


LOAB 


X3 


JSR 


01 C8 


LOAB 


X4 


JSR 


01 C8 


LOAB 


XS 


JSR 


01C8 


LOAB 


X6 


JSR 


01 C8 


LOAB 


X7 


JSR 


01 C8 


SWI 




LOAA 


FF 


STAA 


8004 


STAA 


8005 


STAA 


8006 


STAA 


8007 


LOAA 


01 


STAA 


8006 


STAA 


8004 


LOX 


09FF 


OEX 




BNE 


FD 


CLRA 




STAA 


8004 


LDX 


09FF 


OEX 




BNE 


FD 


OECB 




BNE 


E5 


STAA 


8006 


LOAB 


02 


LOX 


FFFF 


DEX 




8NE 


FD 


OECB 




BNE 


F7 


RTS 





Comments 



Load accumulator B with the first digit of phone number (Xi ) 

Jump to dial subroutine located at address 01 C8 

Load accumulator 8 with the second digit Xj 

Jump to dial subroutine located at address 01 C8 

Load accumulator B with the third digit X 3 

Jump to dial subroutine located at address 01 C8 

Load accumulator 8 with the fourth digit X 4 

Jump to dial subroutine located at address 01 C8 

Load accumulator B with the fifth digit X s 

Jump to dial subroutine located at address 01 C8 

Load accumulator B with the sixth digit X 6 

Jump to dial subroutine located at address 01 C8 

Load accumulator B with the seventh digit X 7 

Jump to dial subroutine located at address 01 C8 

End of dialed number 



} 



Other numbers stored- as required 



initial clearing of data direction and control 
registers of the PI A. 



A "HIGH" (1) is loaded into Ag & B of PI A 



A counter is set allowing A & 8 to be high (1) 
during the count down. 

Data line A goes low (0). 

A counter is set allowing A to be low (0> 
during the count down. ■( 

One cycle of pulse generation has been completed. 
A branch instruction to generate the next pulse 
cycle is executed. Line B goes low (0) at the end. 

A counter is set allowing a time interval between 
dialed digits. 



A return from subroutine instruction is executed 
to load the next digit for dialing. 



ei 



sv 



9V 



Vcc 



M6800 
MICRO- 
PROCESSOR 



GROUND 



T 



C=3 



Vcc 

MC6820 * 
PERIPHERAL 
INTERFACE 
ADAPTER 



GROUND 



T 



X^l'r 1 - 



3 kit 

■WV- 



SN7549. 



X 



3«2 

■Wr 




Command periormanc*. Small program (see table) and simple interface adapt M6800 for automatic number dialing. PIA's output pulses are 
sent via relay A to central office, white telephone receiver is disabled by relay B to minimize annoying clicking sound in headset. 



the location corresponding to the first digit of the 
number desired. For the sake of efficiency, program 
command time should be negligible with respect to the 
actual dialing time. Consequently, the command proce- 
dure should keep user interaction to a minimum— that 
is, it should be unnecessary to depress more than one key 
of an nvn matrix for each number desired. 

Emanating from the 6820 peripheral interface adapter 
are seven groups of pulses corresponding to the number 
dialed (this may be extended to 10 groups or more if 
dialing into other area codes is contemplated). The 
program ensures that there is a suitable gap between 
each' group - of pulses so that the central office can 
differentiate between pulses belonging to separate digits. 

The dial interface is a simple circuit connected 
between the pia lines and the central office. It is 



designed to open the normally closed dc line relay A for 
each output pulse from the pia, thus transmitting the 
digit data to the office. -The 7549 serves as a latch and 
buffer to transfer the pia's dial-pulse information to 
switching transistor Qi, which has actual control of the 
relay. The output of port B. of the 7549 is high during . 
the time the pulses are sent, and relay B is therefore 
closed in order to disable the headset receiver, minimiz- 
ing the annoying clicking sounds that are heard in the 
receiver during dial-out. 

The user is cautioned against connecting active- 
element relays, such as transistors, directly to the line. 
More likely than not, such an arrangement will require a 
small amount of power from the dc line to energize the 
active device, and even a load of only 2 milliamperes will 
be sufficient to cause trouble at the central office. D 



Routine reverses data-storage order 



Rao N Bhaskara 

Inelec Boumerdes, Algiers, Algeria 



m+k. Note that there are k+1 memory locations in 
the block, containing k+ 1 data bytes. edm 



Computations such as digital convolutions, FFTs and 
DFTs require reversal of the order of the stored data 
when performed off line. Typically, you write the 
data out into a second memory block, but this 
approach requires enough extra memory to store the 
data twice — not a desirable situation in a u.C system. 

Another approach to the problem involves ex- 
changing the data bytes between the first and last 
memory locations, then between the second and 
next-to-last, and so on, as in the accompanying code. 
Thus, if there are k+1 data bytes in the memory 
block, complete reversal requires k/2 (if k+1 is odd) 
or (k+l)/2 (if k+1 is even) exchanges. 

Let the first memory location be m and the last 



ENTER: LXI**m 


Index Register loaded with first address 


LSP**m+k-1 


SP loaded with last-but-one address 


LOAOA: UMAX 


Data loaded into Ace A from the 
address pointed to by X 


PUL8 


SP incremented by 1; B loaded from the memory 
location pointed to by this value of SP 


STABX 


Exchange of data bytes takes place, 
and SP decremented by 1 


PSHA 




INX 


To get the next address from the top 


OES 


To get the next address from the bottom 


CPXi>i*n 


Compare X with n, where 




n = m + ti-1 if k + 1 is even, and 




n = m + k/2 if k + 1 is odd 


BNE LOAOA 


Repeat the exchange operations until all 
data bytes used, then 


RTS 


Return to main program 


Save memory while reversing blocks of stored data by using this 
M6800 subroutine. 
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Memory-map switching extends an 8-bit \iP's storage access to 

128k— increasing application possibilities without sacrificing 

processing efficiency or capabilities. 



Stephen Strom, Motorola Semiconductor Products Inc 

When an 8-bit ptP's 64k-byte memory-addressing 
capability begins to cramp your programming pros- 
pects, don't assume that you must necessarily upgrade 
to a 16-bit device. The software-directed dual memory- 
mapping approach described here allows you to expand 
an 8-bit jjlP's addressing range to 128k bytes by 
multiplexing two 64k RAMs. This unified hardware/ 
software approach lets you incorporate more process- 
ing functions and support more complex and efficient 
functions in an 8-bit system. 

The dual-RAM mapping approach suits both long 
programs and short ones that need excessive buffer 
space during execution— two conditions that often 
occur in applications such as word processors, text 
editors and RAM/ROM testers. With enlarged memo- 
ry, you can also overcome the size constraints of a 



combined operating-system, I/O and control program. 
In fact, you can assign an entire 64k map to the 
operating system and control program and reserve the 
second map for the program buffer. This broad storage 
allocation permits you to add numerous program 
features without infringing on buffer space. 

Simple concept demands design care 

To implement the dual-memory-map approach, 
merely multiplex an 8-bit y.P to two identical 64k 
RAMs. This- seemingly elementary method requires 
careful consideration of several hardware/software 
design factors, however. At any instant, for example, 
the jiP can access only one RAM; the entire workspace 
thus splits into two independent 64k blocks (memory 
maps). For proper hardware operation, the nP must 
retain each memory map's identity and correctly 
transfer control and data between maps. Software must 



PIA I/O PORT 



PA, PA, R/W (REA! 

> ^ "y- 



] c 



8-BIT MICROPROCESSOR 



R/W (READ/WRITE) 



Oh 



M>a>i — : ^o 



■VMA 

(VALID MEMORY 

ADDRESS) 



VMA. 



4>oX3 



VMA. 



. TO 64k 



I TO 64k 
RAM B 



I/O I/O READ/ 
PORT PORT WRITE A 8 ADDRESS 
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1 
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3fc^SSH^I^!S2^ vS T ia P ' A t0 TJ" k * AMS and transfers data ^ '^ructions under software control. Various 
logic-state comomations determme the source and destination of code-storing, loading and executing operations. 



Dual mapping overcomes 
8-bit fjiP's memory limit 



*/ 



govern these map transfers and allow the p.P to access 
memory without loss of processing efficiency. 

To satisfy these hardware/software design con- 
straints, memory-map multiplexing calls for software- 
driven decode logic connected between the p-P's I/O 
port and two 64k RAMs CFig 1). Although this 
particular hardware configuration relies on a 6800 m-P 
and a 6820 peripheral interface adapter (see box, 
"6800-^P definitions"), the memory-map switching 
principles involved apply to most 8-bit pPs with little 
modification. 

In Fig 1, note that the (iP's Valid Memory Address 
(VMA) output, in conjunction with the decode logic, 
produces RAM-selector signals VMA A and VMAb. 
When VMAa, goes HIGH, the decode logic switches 
RAM A to the (iP; similarly, when VMA B goes HIGH, 
RAM B comes under nP control. 

By storing data via a properly designated I/O port, 
the \iP selects one of four addressing modes: 
; • Mode 1 — Load, execute and store code in RAM A 

• Mode 2 — Load and execute code from RAM A and 
store in RAM B 

• Mode 3— Load and execute code from RAM B and 
store in RAM A 

• Mode 4 — Load, execute and store code in RAM B. 
While Modes 1 and 4 concentrate on an individual 

RAM, Modes 2 and 3 direct the m-P to load programs 
from one memory map to the other as well as pass 



6800-iaP definitions ' 

Address bus (Ao to A 15 )— Accesses memory and 
peripheral devices for jiP; a 16-bit, 3-state bus. 

Data bus (D to D 7 ) — Allows data to pass 
between memories and pP's programmable regis- 
ters; an 8-bit, 3-state, bidirectional bus. 

Read/Write (R/W)— 3-state output-control signal. 
When HIGH, it indicates that the CPU is reading PIA 
data from the data bus. When LOW, it indicates that 
the CPU is writing data onto the data bus for 
delivery to the PIA. Normal standby state is HIGH. 
Valid Memory Address (VMA) — CPU output- 
control signal; goes HIGH whenever a valid address 
appears on the address bus. When either A or B 
enable or decode logic also goes HIGH, RAM A or 
RAM B switches into operation under plP control. 

6820 peripheral interface adapter (PIA)— 
Provides 16 pins configured as two 8-bit I/O ports 
(PAo to PA 7 and PBo to PB7). Each l/O-port line 
operates as either input or output but does not 
support bidirectional data transfers. The PIA's 
3-state, bidirectional data bus (D to D 7 ) carries all 
transactions to and from the 6800 CPU. 
Software mnemonics — 

JMP— Jump to designated address 

JSR — Jump to subroutine 

ORG — Originate starting program location 

LDAA— Load accumulator A 

LDX— Load index register 

RTS — Return from subroutine 

STAA — Store accumulator A. 



uPCH 



READ/WRITE 
JR/W) 


• 


l/t 


PIA 
3PO 


TT 






RAMA 






PA, ' 




DECOOE 
LOGIC 1 




16K 
BLOCK 1 




PA, 














16K 
BLOCK 2 




PA, ' 
















16K 
BLOCK 3 






DECOOE 
LOGIC 2 . 




















PA, 














16K 
BLOCK 4 




PA. ' 




























DECOOE 
LOGIC 3 












16K 
BLOCK 1 




PA 5 




























16K 
BLOCK 2 


















OECOOE 
LOGIC 4 


16K 
BLOCK 3 




PA, 




PA 7 






16K 
BLOCK 4 























Ftg 2— For tighter memory control, four decode-logic units access 128k of total memory as eight 16k memory maps, divided 
equally between two 64k RAMs. The resulting software flexibility simplifies memory-map transfers, program loading and common 
buffering. 
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6800 software transfer routines 



The following routines prove use- 
ful if you implement the memory- 
mapped approach described in 
this article on a 6800-p.P-based 
system. 

ORG $F00O (RAM A or RAM B) 

Location SF000 lies within the 
user's program area; $0000 rep- 
resents the initial transfer-routine 
location. To change control from 
one map to another, the program 
jumps to the map-transfer routines 
(see example routines below). 



LOX 
JSR 



#ADDR 
TRNSFR 



A TRNSFER routine transfers 
\iP control from one memory map 



to another. It then proceeds to 
branch to the address stored in 
the index register. By branching, 
the subroutine call stores the last 
address on the program stack. 

JMP RETURN 

A RETURN routine also trans- 
fers jjuP control from one memory 
map to another. It then proceeds 
to branch to the address stored in 
the program stack by executing an 
RTS statement. 

Map-transfer routines: 



ORG $0000 
TRNSFR LDAA #03 
STAA PIA0 



(RAM A) 



ORG #0000 (RAMB) 
TRNSFR LDAA #00 
STAA PIA0 

After one map's data accumu- 
lates in the PIA, control automati- 
cally transfers it to the other map. 
Operand PIA0 is dedicated to map 
transfers. 

jmp o,x 

RETURN LDAA #03 
STAA PIA0 
RTS 

JMP 0,X 
RETURN LDAA #00 
STAA PIA0 
RTS 



parameters between them. The Read/Write (R/W) line 
activates these latter two modes as follows: When the 
line goes HIGH, the nP executes a read cycle and 
transfers code from one map into its CPU; when the line 
goes LOW, the jjP executes a write cycle and stores 
code-in the other memory map (see box, "6800 software 
transfer routines"). 

The software aspect of dual-map switching yields 
several advantages: The pP performs all relocations 
automatically; program parameters and control pass 
easily between maps; memory maps exchange at any 
time during the program's execution no matter which 
map or memory location resides in the CPU; and 
processing efficiency does not degrade. 

Smaller maps offer program versatility 

For even tighter memory control, you can subdivide 
the 128k of total memory into eight 16k memory maps, 
distributed as four maps in each 64k RAM (Fig 2). This 
subdivision mandates a fourfold increase in decode-logic 
hardware, but the advantages of increased software 
flexibility greatly outweigh the extra expense. 

One application of this memory arrangement, for 
example, places a nP's operating system, program 
stack and transfer routines in a common memory. In 
this manner, you eliminate most of the map-transfer 
software complexities. 

Another application employs two operating systems 
with a common program buffer. In this example, you 
load a disc operating system into one 16k block of RAM 
A and a BASIC program into the corresponding block 
of RAM B. You can then readily transfer control from 
the low-level language to the high-level one, and vice 
versa. This loading technique also permits you to 
program a variety of complex operations within the 



same buffer space. A variation on this approach 
provides a choice of program modes by allowing map or 
mode transfers by means of software or a set of 
hardware switches. 

You can extend a jjP's addressing range even further 
by multiplexing address lines to switch several 64k 
memory blocks. With only a slight modification of the 
decode logic, you can thus structure the jiP to address 
128k, 192k or 256k bytes. For such multiple-map 
switching, adapt the same hardware/software consider- 
ations utilized for the dual-map configuration. 

In each case, keep track of the program stack in some 
common memory set aside for this purpose, because the 
stack-pointer register within the CPU does not change 
during map-transfer operations. Locating the stack in 
common memory permits access of the entire stack by 
subroutines in all memory maps. EDN 
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Repeat Key / Data Latch 



20 




•5V 



STROBE FROM KBD 



PARIS 

74273 LATCH 

555 TIMER 

7400 NAND GATE 

270K RES. 

2M RES. 

.04 MFD CAP 



for KBD 2 

By Robert Brumund 




DATA TO PI A. 

B0-B6 




5V 
O 



GROUND 
B7 OF PIA 



270K 2M 




04 MFD 



O-fiO 



NEW STROBE 
TO PIA 



THE CIRCUIT MAY BE PLACED ANYWHERE BETWEEN THE KEYBOARD AND THE PIA. 

OPERATION: WITH THE REPEAT KEY DOWN, PRESS ANY CHARACTER KEY. THIS 

CHARACTER WILL THEN BE OUTPUTTED TO THE PIA AT THE RATE OF 6 PER SEC 
FOR AS LONG AS THE CHARACTER KEY IS KEPT DOWN. 



+ 1 

Subjects Increased System Sveed 

The Sphere 300 Systems were designed with a basic clock cycle of 
1.5 milliseconds. This results in a 666KHz, clock, which is well 
below the specified maximum of the MG6800 CPU. 

The major reason for the reduced clock rate is that 1702A proms 
were used. These have an access time of approximately 1 milli- 
second and therefore 02 must be at least this long to allow oper- 
ation. 

One solution which Sphere chose to implement in the 500 systems 
was to slow down the 02 only when the proms are accessed. There are 
several CPU board changes needed but an upgrade is feasable. 

The second obvious solution was to replace the proms with a faster 
memory. A 2708 adapter was formerly available from Programma and it 
worked well. 

Once the proms have been changed, the system will still not run 
above 1,2 milliseconds. The reason for thi3 is in the memory write 
timing. The secret is in the 74123 which (both on CPU and MeM boards) 
disables the WE signalwhile the data buss does not contain valid data. 
The present design has a delay of 355 Nanoseconds, which, when coupled 
with propagation delays, yields only 60 nanoseconds to write the data/ 
to the memory with a 500 Nanosecond 02, This can be modified by 
changing El on each MEM board from a 33K resistor to 12K, This will 
change the leading edge of the VIE signal to coincide with the worst 
case leading edge of the valid data (200 Nanoseconds after the 02 
leading edge). There is a corresponding resistor on QPU boards which 
may be changed for memory banks on a CPU board, 

Oharles Matte son 
450 Silas Deane Hwy, 
Wethersfield, Connecticut 

Editor's note: Most Sphere boards and replacement parts are still 
available at reasonable cost from Charles, 
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STING 


OF 1980-1981 ACTIVE 


SPHERE USERS 




1 


1 


80 


ASI MARKET RESEARCH 


7655 SUNSET BLVD. 


HOLLYWOOD CA. 90046 


2 


110 


30 


JOHN BAYLIS 


P.O. BOX 137 


NSL UTAH 34054 


3 


6 


30 


BITS AN PIECEZ 


P.O. BOX 23 


WATERLOO 2017 AUSTRALIA 


4 


7 


80 


JEAN-FRANCOIS BOIVIN 


1405 RUE IBERVILLE 


MONTREAL CANADA H2K 3B2 


5 


9 


30 


SAMBRONSTEIN 


9026 AUTOVILLE BR. 


COLLEGE PARK MD. 20740 


6 


66 


80 


JEFFREY BROWNSTEIN D.D.S 


2 TOR ROAD 


WAPPINGERS NY. 12590 914 297-3950 


7 


116 


80 


ROBERT BRUMUND 


2136 BEL AIR AVE. 


SAN JOSE CA. 95128 


3 


96 


80 


DOUGCALLEY 


RT 1 BOX 51 LEUPP BANK 


FLAGSTAFF AZ. 36001 


9 


99 


80 


jm CHIN 


33-34 70TH ST. 


JACKSON HEIGHTS NY. 11372 


10 


13 


30 


SCOn D'AMRON 


2123 SUFFIELD DR. 


WINTER PARK FL.32789 


11 


22 


30 


LEROY BANNER 


3900(3900-45TH STS. )#23 


KENOSHA WI. 53140 


12 


21 


30 


OWEN DAVIS 


710 UAIKIKI DR. 


DES PLAIJCS IL. 60016 


13 


24 


30 


JOSEPH DAWES 


2510 BROADWAY 


BIG SPRING TX. 79720 


14 


25 


30 


JOHN BEPPE 


1201 2ND ST. 


DELANCO NJ. 08075 


15 


23 


80 


R.S. DOWNS 


ROUTE 7 BOX 211-A 


RALEIGH NC. 27614 


16 


27 


30 


CARLYLE EASTMAN 


6016 N.ARLINGT0N 


SAN PABLO CA. 94806 


17 


29 


80 


ROBERT ENNIS 


9322 LAUREL 


FONTANA CA. 92335 


18 


124 


30 


DAVID FRANKEL 


2012 WEST ST. LOUIS DR. 


KOKOMO IN. 46901 


19 


31 


80 


HARRY FRIEDMAN 


945 DUDLEY DR. 


SHREVEPORT LA. 71104 


20 


33 


30 


CARL GECHNAUER 


HIGHWAY 219 S. BOX 26 


LAKE PARK IA. 51347 


21 


34 


80 


DAVID GHERSON 


1745 RAVIZZA AVE. 


SANTA CLARA CA. 95051 


22 


35 


30 


JOHN GIBBON 


3 PUDDING3T0NE RD. 


NORRIS PLAINS NJ. 07950 


23 


37 


30 


R.M. GRAINGER 


RR NO.l PRESCOTT 


ONTARIO CANADA KOE 1T0 


24 


40 


30 


G.K. HALE-LONG ENGINEERING 


400 FLYNT VALLEY RD. 


WINSTON-SALEM NC. 27104 


25 


41 


30 


WILLIAM HARTWEG 


228 ST.MARKS PLACE 


STATEN ISLAND NY. 10301 


26 


117 


30 


ROBERT HATFIELD 


321 HUNT ST. 


ASHLAND KY. 41101 


27 


46 


30 


JOHNHEACOCK 


4 STANFORD DR. #3A 


BRIDGEWATER NJ. 03807 


23 


106 


30 


DR.6E0RGE HORNER 


80 DELAMERE AVE. 


STRATFORD ONT.CANADA N5A 425 


2? 


42 


30 


JOHN IRSIK 


1017 MICHIGAN 


BEAUMONT CA. 92223 


30 


53 


30 


MICHAEL KOVIS 


3810 MAIN STREET 


STRATFORD CT. 06497 


31 


54 


80 


DAVID LAKE 


243 W.SIRIUS 


ANAHEIM CA. 92802 


32 


52 


80 


G.H. LATTA 


RT. 3 SMYRNA RD. 


SEARCY AR. 72143 


33 


58 


80 


DICK MASON 


1037 PARK HILL LANE 


ESCONDIDO CA. 92025 


34 


61 


30 


CHARLES MATTESON 


450 SILAS DEANE HGWY. 


WETHERSFIELD CT. 06109 


35 


60 


30 


TOM MEIER 


401 N. LEVITT ST. 


ROME N.Y. 13440 


36 


64 


80 


E.HUGH MELTON JR. 


8314 UNIVERSITY DRIVE 


RICHMOND VA. 23229 


37 


119 


30 


DAVID PAUL MOORE-DIRECTOR 


COMPUTER CTR. QUINCY COLLEGE 


QUINCY IL. 62301 


38 


95 


30 


DAVE PERRY 


57 FOREST HILL ROAD 


WEST ORANGE NJ. 07052 


39 


72 


80 


J.C. PIRTLE 


P.O. BOX 537 


AZLE TX. 76020 


40 


76 


30 


JIM RAEHL 


336 N. 750 EAST 


OREH UTAH 84057 


41 


79 


30 


WARREN REDDEN 


RR 1 BOX 22 


GYPSUM KS. 67448 


42 


78 


30 


JOHNRIBLE 


51 DAVENPORT ST. 


CAMBRIDGE MA. 02141 


43 


80 


SO 


W.J. RUTLEDGE 


1201 PIERCE ST APT#305 


ARLINGTON VA. 22209 


44 


82 


80 


LAWRENCE SAMBUCO 


22 FREDRICK DR. 


POUGHKEEPSIE NY. 12603 


45 


31 


30 


MIKE SCHWARTZ 


719 PATTERSON ST. WEST 


LONG BEACH CA. 90806 


46 


92 


80 


DR. HARRY SPAIN 


882 BLUE RIDGE RD. HOLIDAY PARK 


PITTSBURGH PA. 15239 


47 


83 


80 


DR. ROGER J. SPOTT 


13975 CONNECTICUT AVE. 


WHEATON HD. 20906 301 299 6030 


48 


123 


80 


P. il. TALAJIC 


10 KEEFER ST. 


OTTAWA ONTARIO K1M2G2 CANADA 


49 


36 


30 


RICHARD TKERIAULT 


12120 'ARCHVEQUE 


MONTREAL CANADA H1H 3C1 


50 


87 


80 


GENE WALLIS 


1954R OLD MIDBLEFIELD WAY 


MOUNTAIN VIEW CA. 94043 


51 


91 


80 


WARREN WEIMER 


23025 KINARD AVENUE 


CARSON CA. 90745 213 835-9417 


52 


89 


80 


CHAN WAI YUNG 


P.O. BOX K-2296 


KGWLOGN HONG KONG 
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NEXT 



ISSUE 



The editors find it hard to believe there will ever be another 
SPHERE newsletter if there is nothing to print in it. Those of 
us left must do our parts in keeping the information flowing. 

Send in anything you have.... we would very much like to hear 
from those users who have not ever sent in material. After five 
years we know you must have been running something! 

From now on we will produce a newsletter whenever there is 
enough material. The regular issue spacing of the past will 
not be possible with the current scarcity of contributions. 

Our most generous Thank Yous go to the Editors of EDN magazine, 
who allowed us to reprint some of the material in this issue. 

♦ «****♦****♦**♦♦♦#******#*#*#♦#**♦♦**♦#»**#»♦**»****•»**♦***♦♦** 



The enclosed sequence provides for excellent user prompt for 
input statements in BASIC as it begins on the first dot and 
only accepts the desired number of characters. You must use 
two dots more than the number of characters requested. 

100 PRINT "PATIENT'S FIRST NAME" 

105 PRINT " "; 

110 PAT 7EFCFD 

120 INPUT A$ 

130 IF LEN(A$)>10 THEN GOTO 100 

140 PRINT A$ 



CSS BASIC accepts tapes of Peter Stark's 6800 Assembler 
(written in Basic). It should be easy to modify (add macros) 
but it runs slowly. Available from STAR KITS on cassette. 



